使用Excel VBA通​​过Lotus Notes发送电子邮件

如何解决使用Excel VBA通​​过Lotus Notes发送电子邮件

我一直在研究如何通过Lotus Notus发送电子邮件，但是我的数据库是错误的。

我尝试将“”，“”放置不成功。

Dim MailData As Object 'The email database
Dim Maildoc As Object 'The email itself
Dim Session As Object 'The notes session
    
linha = 2

Do Until Cells(linha,1) = ""

    Set Session = CreateObject("Notes.NotesSession")
    Set MailData = NotesSession.GetDatabase("","C:\Program Files (x86)\IBM\Lotus\Notes.exe")

    If MailData.IsOpen = True Then
    Else
        MailData.Openmail
    End If

    Set Maildoc = MailDB.CreateDocument
    Maildoc.SendTo = Cells(linha,8)
    Maildoc.Subject = "SYMRISE BR - Quotation" & " -" & Cells(linha,1) & " -" & Cells(linha,4)
    Maildoc.Body = "Dears,& Chr(10) & Chr(10) & Cells(15,14) & Chr(10) & Chr(10) & Cells(1,1) & "" & Cells(linha,1) & "
    Chr (10) & Cells(1,2) & "" & Cells(linha,2) & Chr(10) & Cells(1,3) & "" & Cells(linha,3) & Chr(10) & _
    Cells(1,4) & " " & Cells(linha,4) & Chr(10) & Cells(1,5) & " " & Cells(linha,5)
    
    Maildoc.SaveMessageonSend = True
   
Loop

解决方法

您不能使用“”，“”在VBA中标识数据库。仅在Notes客户端内部或Domino服务器上运行的LotusScript代码中有效。

“ C：\ Program Files（x86）\ IBM \ Lotus \ Notes.exe”不是数据库。这是一个程序。这是Notes程序。数据库是名称以“ .NSF”结尾的文件。

如果要打开当前用户的个人电子邮件数据库，则应使用NotesDatabase OpenMail类的enter link description here方法。