VBA - Отправить письмо Outlook: почему тема и текст не отображаются? - PullRequest
Новая
       14

VBA - Отправить письмо Outlook: почему тема и текст не отображаются?

0 голосов
/ 14 апреля 2020

У меня есть код ниже, который отправляет автоматические c электронные письма, он работал нормально, но я не понимаю, почему, теперь тема и тело не появляются при создании почты. У меня есть похожий код с разными адресами электронной почты, и он отлично работает .. Что не так с кодом ниже? 

Public Sub EnvoiAutomatique_SuiviParter()

    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object

    Set rng = Nothing
    On Error Resume Next
    Set rng = Sheets("Suivi").Range("L2:L65536").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    For Each cell In rng

    If Len(cell) = 0 Then Exit For

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
       '.From = ""
        .To = cell.Value
        .CC = ""
        .Subject = "Suivi de demande d'accompagnement pour la société " & .Cells(cell, "B")
        .Body = "Bonjour" & vbCr & "Il y a 15 jours vous avez reçu une demande d'accompagnement pour la société " & .Cells(cell, "B") & "avec numéro de TVA " & .Cells(cell, "C") & vbCr & "Pouvez-vous nous informer du suivi qui a été donné au dossier par retour de email ?" & vbCr & "Cordialement" & vbCr & "L'équipe Business de hub.brussels"
        .Display
    End With
    On Error GoTo 0

Next cell

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Спасибо !! :)

...