отвечая на определенную почту в Outlook, используя VBA - PullRequest
Новая
       15

отвечая на определенную почту в Outlook, используя VBA

0 голосов
/ 14 мая 2019

На самом деле я пытаюсь воспроизвести определенную почту, используя Excel VB на MS Outlook. Когда я использую функцию «Ответить всем» и вставляю данные из таблицы Excel, данные не вставляются в самый верхний правый угол письма. Вместо этого он объединяется с исходной почтой. 

Sub Test()

Dim olApp As Object
Dim olNs As Object
Dim Fldr As Object
Dim olMail
Dim i As Long

Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
i = 1

For Each olMail In Fldr.Items
    If InStr(olMail.Subject, "email message object text") <> 0 Then
   with olMail.replyall
   .display

set inspect = olMail.GetInspecor
set pageedit  = inspect.WordEditor

 ' pasting data from excel(Here it does not paste on the top most left 
 hand corner of the mail, instead pastes data just below the mail to 
 which i will reply)

Activeworkbook.worksheets("Sheet1").range("XEO1048550:XEO1048560").copy

pageedit.application.selection.start = len(.body)
pageedit.application.selection.end = pageedit.application.selection.start
pageedit.application.selection.pasteandformat(wdformatplaintext)

i = i + 1
End If
Next olMail
End Sub
...