将附件添加到定期 Outlook 电子邮件 vbs

Question

首先我不是一个真正的程序员，几乎无法完成这个

我想使用 Outlook 发送一封定期电子邮件，所以我用谷歌搜索它并找到了我在记事本中编写的这个脚本，然后将其保存在 .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

我不知道这是否适合你