Question

我正在使用vbs文件发送电子邮件，但它只在一行发送。我希望它是多行的＆amp; vbCRLF，但它不适合我。

请帮我查看包含多行文字的电子邮件。

我的代码：

Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "dc@gail.com"
emailObj.To       = "dc@gail.com"
emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO" & vbCRLF & "Test CDO line 2"
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")    = "YourUserName"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password1"
emailConfig.Fields.Update
emailObj.Send
If err.number = 0 then Msgbox "Done"

Answer 1

以下是我的方法，只需使用“.HTMLBody”即可添加格式。使用outlook工作正常。

    Set objOutlook = CreateObject("Outlook.Application")
       Set objMail = objOutlook.CreateItem(0)
    with objMail
       .Display   'To display message
       .To = "test@test.com"
       .cc = "test@tested.com"
       .Subject = "FYI"
       .HTMLBody = "<HTML><BODY><p>Dear Team,</p><P> Please be informed, </p><P> Regards, </p><P><B> My Name </B><br><big><i>My Company</i> </big>(of awesomeness) </br></p></BODY></HTML>"


    end with

Vbs多行电子邮件

1 个答案: