Question

我不是程序员，所以我提前道歉。

我在工作簿中有三个不同的工作表。每张工作表都有一个特定的宏，以便在输入数字后，班次监督员可以按下具有指定宏的按钮，该工作表中的指标将被复制并粘贴到具有可过滤/可旋转列的格式的不同工作表中。然后保存并关闭数据，返回到班次报告工作表，复制相关单元格，然后打开lotus并格式化一条主题行，说明正确的班次编号和日期，并将班次报告数据粘贴到正文中。电子邮件。

由于在3个工作表上有一个不同的按钮，我不能指望主管以任何特定的顺序输入数字，我需要能够判断Lotus是否已经打开并创建了一个电子邮件该特定主题行，以查看是否需要创建它，或者是否存在已包含在正文中的某些信息。有谁知道这是否可行？

 Dim NSession As Object
 Dim NDatabase As Object
 Dim NUIWorkSpace As Object
 Dim NDoc As Object
 Dim NUIdoc As Object
 Dim WordApp As Object
 Dim WordDoc As Object

 Dim msg As String
  msg = "Leads Report " & Now() & vbNewLine & vbNewLine & _
     "Finishing:" & vbNewLine & _
     "**PASTE Leadsheet CELLS HERE**" & vbNewLine & vbNewLine

 Sheets("Leadsheet").Select
 Set newRange = Range("e4")
 mystring = RangeToString(newRange)

 Set NSession = CreateObject("Notes.NotesSession")
 Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
 Set NDatabase = NSession.GetDatabase("", "")

 If Not NDatabase.IsOpen Then
    NDatabase.OPENMAIL

 End If

 'Create a new document
 '******************************(if statement to see 
 'if a document with specific subject line has already been 
 'created....'subject = doc.GetItemValue("subject")(0)???????
 '****************************************

 Set NDoc = NDatabase.createdocument             
      With NDoc
             .SendTo = "email@email.com" 'CHANGE THIS
             .CopyTo = ""
             .Subject = Format(Date, "mm-dd-yyyy") & " Lead Report Shift " & mystring

             'Email body text, including marker text which will be replaced by the Excel cells

             .Body = msg

             .Save True, False

         End With


 'Edit the just-created document to copy and paste the Excel cells into it
 Set NUIdoc = NUIWorkSpace.editdocument(True, NDoc)


     'Find the marker text in the Body item
     'Replace it with the Excel cell
  With NUIdoc
           'leadsheet

     Workbooks("Master Shift Report Sheet.xlsm").Activate
     Sheets("LeadSheet").Select
     Range("B2:o62").Select
     ActiveWindow.zoom = 86
     Selection.copy
     Set WordApp = CreateObject("Word.Application")
     Set WordDoc = WordApp.Documents.Add
     With WordApp.Selection
        .PasteSpecial DataType:=4 & vbNewLine
        .wholestory
        .copy
     End With

     .gotofield ("Body")
     .findstring "**PASTE Leadsheet CELLS HERE**"
     .Paste
     'Application.CutCopyMode = False
     '.Send
     '.Close
 End With

 Set NSession = Nothing

其他任何看起来很不可思议的东西都会毫不犹豫地指出来！我在学。

用于检查是否已创建具有特定主题行的新消息的代码Lotus

0 个答案: