从附带的IBM Notes发送电子邮件
我想用VBA和Lotus Notes发送附件的电子邮件。 我设法发送一封电子邮件，但附件从未包含在内。 我在这里错过了什么？
Sub Macro1() ActiveWorkbook.Save Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim fromAdr As String Dim subject As String Dim recip As String Dim numSend As Integer Dim Attachment1 As String ' Mail settings Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields ' Mail fields fromAdr = """example@example.com" recip = """example@example.com" Debug.Print strbody subject = "Orders fondsen" strbody = strbody & "Hi," & vbNewLine & vbNewLine & _ "Please find the document..." ' Fields layout strbody = strbody & vbNewLine & vbNewLine & "Text" Debug.Print strbody strbody = strbody & vbNewLine & vbNewLine & "Kind regards," ' Location attachment Attachment1 = "file-path" ' send mail On Error GoTo handleError With iMsg Set .Configuration = iConf .To = recip .CC = "" .From = fromAdr .subject = subject .TextBody = strbody .Send End With numSend = numSend + 1 GoTo skipError handleError: numErr = numErr + 1 oFile.WriteLine "*** ERROR *** Email for account" & " not sent. Error: " & Err.Number & " " & Err.Description skipError: On Error GoTo 0 MsgBox "Total number of emails send: " & numSend & vbNewLine & "Total number of errors: " & numErr, vbOKOnly + vbInformation, "Operation finished" GoTo endProgram cancelProgram: MsgBox "No emails have been sent.", vbOKOnly + vbExclamation, "Operation cancelled" endProgram: Application.Interactive = True Set iMsg = Nothing Set iConf = Nothing Set dp = Nothing End Sub 您需要添加附件：
With iMsg Set .Configuration = iConf .To = recip .CC = "" .From = fromAdr .subject = subject .TextBody = strbody .AddAttachment Attachment1 .Send End With
您可以为要添加的每个附件重复.AddAttachment 。