VBScript通过SMTP发送电子邮件

Question

I have the following code, my goal is to send automatic emails to a list of people in an excel document, using a text file as a template: 我有以下代码，我的目标是使用文本文件作为模板，将自动电子邮件发送到excel文档中的人员列表：

Set objMessage = CreateObject("CDO.Message") 
Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder("F:\Billing_Common\autoemail").Files
  If LCase(fso.GetExtensionName(f)) = "xls" Then
    Set wb = app.Workbooks.Open(f.Path)

set sh = wb.Sheets("Auto Email Script")
row = 2
email = sh.Range("A" & row)
subject = "Billing"
LastRow = sh.UsedRange.Rows.Count

For r = row to LastRow
    If App.WorkSheetFunction.CountA(sh.Rows(r)) <> 0 Then 
    objMessage.Subject = "Billing: Meter Read" 
    objMessage.From = "billing@energia.ie" 
    objMessage.To = email

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim emailText                                   
Set emailText = fso.OpenTextFile("F:\Billing_Common\autoemail\Script\Email.txt", ForReading)                                        
BodyText = emailText.ReadAll

    objMessage.TextBody = emailText

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = CdoSendUsingPort


'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ADDRESS OF SERVER HERE"

'Server port
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

objMessage.Configuration.Fields.Update
objMessage.Send

    End if
Next

emailText.Close
Set emailText = Nothing
Set fso = Nothing
wb.Close
End If
Next

It throws an error at the objMessage.TextBody, saying type mismatch. 它在objMessage.TextBody上引发错误，提示类型不匹配。 If anyone could help me it would be much appreciated! 如果有人可以帮助我，将不胜感激！

Thanks! 谢谢！

Answer 1

For sending inline images you need to create an HTMLBody instead of a TextBody and add a RelatedBodyPart with the image (see here ): 为了发送内联图像，您需要创建一个HTMLBody而不是TextBody并添加一个与该图像有关的RelatedBodyPart （请参见此处）：

Set msg = CreateObject("CDO.Message")
...
msg.HTMLBody = "<html>" & vbLf & _
               "<head><title>Test</title></head>" & vbLf & _
               "<body><p><img src='foo.jpg'></p></body>" & vbLf & _
               "</html>"
msg.AddRelatedBodyPart "C:\path\to\your.jpg", "foo.jpg", 0

Answer 2

After the line BodyText = emailText.ReadAll , you ought to assign that , and not the file ("emailText" is the TextFile that was Open ed by fso on the previous line), that's why it's complaining about a Type Mismatch... 在BodyText = emailText.ReadAll行之后，您应该分配它，而不是文件（“ emailText”是前一行由fso Open的TextFile ），这就是为什么它抱怨类型不匹配的原因...

So just replace objMessage.TextBody = emailText with objMessage.TextBody = BodyText and it should work... 所以只需将objMessage.TextBody = emailText替换为objMessage.TextBody = BodyText ，它应该可以工作...

VBScript通过SMTP发送电子邮件

问题描述

2 个解决方案

解决方案1
2 已采纳 2013-07-03 10:06:35

解决方案2
0 2015-04-17 18:20:16

VBScript通过SMTP发送电子邮件

问题描述

2 个解决方案

解决方案1 2 已采纳 2013-07-03 10:06:35

解决方案2 0 2015-04-17 18:20:16

解决方案1
2 已采纳 2013-07-03 10:06:35

解决方案2
0 2015-04-17 18:20:16