Открыть клиент электронной почты с файлом вложения [дубликат]

VBScript не имеет встроенных констант, поэтому вам нужно искать константы в браузере объектов VBA (Alt + F11 - F2 в Excel) и использовать номер. В VBScript существует только один тип данных, поэтому ничего не помещайте ничего (например, Dim x as string только Dim x).

В VBScript нет ничего грубого.

Поля будут иметь значения по умолчанию из Outlook Express или Windows Mail.

но не установлены в Windows 10, так как он не имеет ни одной из этих двух программ.

Ниже приведен голый минимум

Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "dcandy@gmail.com"
emailObj.To       = "dcandy@gmail.com"
emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

emailObj.AddAttachment "c:\windows\win.ini"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "Username"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"