如何打开Lotus Notes新邮件并发送 [英] How to open a Lotus Notes New mail and send

问题描述

我看到了几个用于加载Lotus Notes并放入和发送附件的宏。 它几乎完成它发送的电子邮件，但不知道如何发送一个文件夹，它的工作与PDF文件，但我有一堆PDF文件在一个文件夹中，我想发送。 如何格式化电子邮件以阅读： " 您好

请查找附件

(附件)

签名 "

感谢您的帮助

 Sub SendEmail()
 Dim WatchRange As Range
 Dim IntersectRange As Range
Dim x As Integer
Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim Attachment As String
Dim Session As Object
Dim stSignature As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
' Open and locate current LOTUS NOTES User
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1,           UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If
' Create New Mail and Address Title Handlers
 Set MailDoc = Maildb.CREATEDOCUMENT
 MailDoc.Form = "Memo"
 Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
' Select range of e-mail addresses
 MailDoc.SendTo = "joe bloggs"
 MailDoc.subject = "Work"
 MailDoc.Body = "Hello" & " " & " Please find attachment."
 MailDoc.SAVEMESSAGEONSEND = True
 Attachment = "c:3-114267.pdf"
 If Attachment <> "" Then

    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "")
    On Error Resume Next
    MailDoc.CREATERICHTEXTITEM ("Attachment")
End If

  MailDoc.PostedDate = Now()
  On Error GoTo errorhandler1
 MailDoc.SEND 0, Recipient
 Set Maildb = Nothing
 Set MailDoc = Nothing
 Set Session = Nothing
 .ScreenUpdating = True
 .DisplayAlerts = True
  On Error GoTo errorhandler1
  Set Maildb = Nothing
  Set MailDoc = Nothing
  Set Session = Nothing
 End With
 End Sub

我已经更改了宏，现在它添加了签名，但格式错误，它没有附加文件。

    Sub SendEmail()

  Dim WatchRange As Range
  Dim IntersectRange As Range
  Dim x As Integer
  Dim UserName As String
  Dim MailDbName As String
  Dim Recipient As Variant
 Dim Maildb As Object
 Dim MailDoc As Object
 Dim Attachment As String
 Dim Session As Object
  Dim stSignature As String
 Dim ws As Object 'Lotus Workspace


  Dim objProfile As Object
  Dim rtiSig As Object, rtitem As Object, rtiNew As Object
  Dim uiMemo As Object
  Dim strToArray() As String, strCCArray() As String, strBccArray() As String
 Dim strTo As String, strCC As String, strBcc As String, _
 strObject As String, strBody As String, strAttachment As String, blnSaveit As   Boolean
   Dim strSignText As String, strMemoUNID As String
   Dim intSignOption As Integer


  With Application
  .ScreenUpdating = False
   .DisplayAlerts = False
   ' Open and locate current LOTUS NOTES User
   Set Session = CreateObject("Notes.NotesSession")
   Set ws = CreateObject("Notes.NotesUIWorkspace")

   UserName = Session.UserName
     MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Maildb.IsOpen = True Then
    Else
     Maildb.OPENMAIL
    End If
    ' Create New Mail and Address Title Handlers


    Set MailDoc = Maildb.CREATEDOCUMENT
     MailDoc.Form = "Memo"
   stSignature =                        Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
  ' Select range of e-mail addresses
    MailDoc.SendTo = "JJunoir"
     MailDoc.subject = ""
     MailDoc.Body = "Hello" & " " & " Please find attachment,"
      MailDoc.SAVEMESSAGEONSEND = True


      Set objProfile = Maildb.GETPROFILEDOCUMENT("CalendarProfile")
      intSignOption = objProfile.GETITEMVALUE("SignatureOption")(0)
      strSignText = objProfile.GETITEMVALUE("Signature")(0)


      Attachment = "c:Debit Notes 03-11"
     If strAttachment <> "" Then
    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", strAttachment,     "Attachment")
    On Error Resume Next
    MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If


   'Open memo in ui
   Set uiMemo = ws.EDITDOCUMENT(True, MailDoc)
   Call uiMemo.GotoField("Body")

   'Check if the signature is automatically inserted
   If objProfile.GETITEMVALUE("EnableSignature")(0) <> 1 Then
   If intSignOption = 2 Then
   Call uiMemo.ImportItem(objProfile, "Signature_Rich")
    End If
    End If

   Call uiMemo.GotoField("Body")
   'Save the mail doc
   strMemoUNID = uiMemo.DOCUMENT.UNIVERSALID
    uiMemo.DOCUMENT.MailOptions = "0"
   Call uiMemo.Save
   uiMemo.DOCUMENT.SaveOptions = "0"
   Call uiMemo.Close
   Set uiMemo = Nothing
   Set MailDoc = Nothing

   'Get the text and the signature
   Set MailDoc = Maildb.GETDOCUMENTBYUNID(strMemoUNID)
   Set rtiSig = MailDoc.GETFIRSTITEM("Body")
   Set rtiNew = MailDoc.CREATERICHTEXTITEM("rtiTemp")
   Call rtiNew.APPENDTEXT(strBody)
   Call rtiNew.APPENDTEXT(Chr(10)): Call rtiNew.APPENDTEXT(Chr(10))
   Call rtiNew.APPENDRTITEM(rtiSig)
  'Remove actual body to replace it with the new one
  Call MailDoc.RemoveItem("Body")
  Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
  Call rtitem.APPENDRTITEM(rtiNew)

  MailDoc.Save False, False
  Set uiMemo = ws.EDITDOCUMENT(True, MailDoc)


   MailDoc.PostedDate = Now()
   On Error GoTo errorhandler1
   MailDoc.SEND 0, Recipient
   Set Maildb = Nothing
   Set MailDoc = Nothing
   Set Session = Nothing
  .ScreenUpdating = True
  .DisplayAlerts = True
  errorhandler1:
  Set Maildb = Nothing
  Set MailDoc = Nothing
  Set Session = Nothing
  End With
  End Sub

这就是它在没有附件的情况下生成的内容 亲切的问候 Junior您好，请查找附件，

推荐答案

如果您的目标是操作Lotus Notes客户端用户界面，那么通过使用"Notes.NotesSession"而不是"Lotus.NotesSession"就成功了一半。"笔记"Prefix为您提供OLE classes，而不是使用"Lotus"前缀获得的COM类，并且您肯定需要使用OLE类--但您仍然选择了错误的根对象。

在OLE和COM类中都可用的NotesSession类及其派生的所有类被称为"后端类"，这意味着它们根本不操纵用户界面。

如果您想要操作UI，则需要使用"前端类"，其根对象是"Notes.NotesUIWorkspace"。在许多情况下，您可能会发现您需要后端类和前端类的组合。例如，NotesUIWorkspace.EditDocument(前端)接受NotesDocument(后端)参数，允许您通过在后台查找找到的文档来打开该文档的UI。

这篇关于如何打开Lotus Notes新邮件并发送的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！