Необходимо создать несколько строк в теле письма, используя outlook - PullRequest
Новая
       20

Необходимо создать несколько строк в теле письма, используя outlook

0 голосов
/ 10 мая 2018

Мне нужно создать 2 или более отдельных строк в теле письма и привет с именем там, которое будет добавлено перед телом письма в приведенном ниже коде ... Я пытаюсь отправить массовую почту на customer.Need помощь в решении этой проблемы в ближайшее время. 

Sub Send_email_fromexcel()
Dim edress As String
Dim subj As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim lastrow As Integer
Dim attachment As String
Dim x As Integer

 x = 2

Do While Sheet1.Cells(x, 1) <> ""
   
    Set outlookapp = CreateObject("Outlook.Application")
    Set outlookmailitem = outlookapp.createitem(0)
    Set myAttachments = outlookmailitem.Attachments
    path = ""
    edress = Sheet1.Cells(x, 1)
      
    subj = Sheet1.Cells(x, 2)
    filename = Sheet1.Cells(x, 3)
    attachment = path + filename


    
        outlookmailitem.To = edress
        outlookmailitem.cc = ""
        outlookmailitem.bcc = ""
        outlookmailitem.Subject = subj
        
        **' Need Help here  '
        outlookmailitem.body = "Please find your statement attached,& vbcrLf & Kindly check the list and confirm"**
        
           
            
        myAttachments.Add (attachment)
        outlookmailitem.display
        'outlookmailitem.send
            
        lastrow = lastrow + 1
        edress = ""
    x = x + 1

Loop


Set outlookapp = Nothing
Set outlookmailitem = Nothing

End Sub

1 Ответ

0 голосов
/ 10 мая 2018

В вашей строке необходимо вставить имя, разделенное "&", для объединения.

Похоже, у вас была правильная идея, но вам нужно держать "&" вне двойных кавычек.

Предполагая, что custname - это переменная, содержащая Имя клиента, строка должна выглядеть следующим образом: 

outlookmailitem.body = "Please find your statement attached," & custname & vbcrLf  & "Kindly check the list and confirm"
...