Добавить вложение повторяющегося электронной почты Outlook VBS

Question

первой вещи, я на самом деле не программист и едва чесотки, чтобы закончить это

я хотел послать повторяющуюся электронную почту, используя внешний вид, так что я Google его и нашел этот сценарий, который я пишу в блокнот, затем сохраните его в .vbs, а тело сообщения использует HTML, после чего я делаю задачу планирования автоматической. , и он действительно работает отлично со мной, но теперь я хочу добавить вложение к этому электронному письму, который я искал, но не нашел ничего, что могло бы работать с этим скриптом и большой проблемой, что большую часть времени я ничего не понимаю, поэтому я надеюсь, что если кто-то может помочь мне это скрипт, который я использую

Dim olkApp 
Dim olkSes 
Dim olkMsg 
Set olkApp = CreateObject("Outlook.Application") 
Set olkSes = olkApp.GetNamespace("MAPI") 
olkSes.Logon olkApp.DefaultProfileName 
Set olkMsg = olkApp.CreateItem(0) 
With olkMsg 
    'On the next line enter the email address of the person you want to send to' 
    .Recipients.Add "to email" 
    .Recipients.ResolveAll 
    'On the next line enter the email subject' 
    .Subject = "Reminder Email" 
    'On the next line enter your message. You can use HTML formatting.' 
    .HTMLBody = "here i put my message using HTML" 
     .Send 
End With 
Set olkMsg = Nothing 
olkSes.Logoff 
Set olkSes = Nothing 
Set olkApp = Nothing 

я хочу, чтобы добавить вложение в это сообщение может кто-то помочь мне

Answer 1

Просто добавьте следующий код ниже тему:

.AddAttachment "C:\****\*****\testfile.txt" 

Попробуйте следующее

Dim oAttch As MailAttachment = New MailAttachment("C:\myattachment.zip") 

А затем добавьте следующий теме:

.Attachments.Add(oAttch) 

К сожалению выше не работает для вас ...

Я не использую офис ...

Ниже это код, который работает для меня:

Set objEmail = CreateObject("CDO.Message") 
objEmail.From = "from@email.co.za" 
objEmail.To = "to@email.co.za" 
objEmail.Subject = "Attachment" 
objEmail.Textbody = "Email with attachment" 
objEmail.AddAttachment "C:\*******\*****\testfile.txt" 
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ 
"mail.your_server.co.za" 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")  = 1 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username" 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objEmail.Configuration.Fields.Update 
objEmail.Send 

Я не знаю, будет ли это работать для вас