Отправить почту через Outlook из Excel - PullRequest
Новая
       6

Отправить почту через Outlook из Excel

0 голосов
/ 12 июня 2019

Я пытаюсь автоматически отправить электронное письмо в VBA Excel, но ничего не отправляется. Если я перехожу с .Send на .Display, он показывает правильный адрес электронной почты и адрес электронной почты / на правильно заполненный.

Я использую код 

Sub SendEmail()

    Dim errorMsg As String
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error GoTo errHandle

    With OutMail

        .To = "user@email.com"
        '.cc = cc
        '.bcc = er.emailBcc
        .subject = "test"
        .htmlBody = "test body"

        .Send   'or use .Display
    End With


    Set OutMail = Nothing
    Set OutApp = Nothing
    SendEmailWithOutlook = True

errHandle:
    errorMsg = "Error sending mail via outlook: " & Err.Description & vbCrLf

    MsgBox errorMsg
    SendEmailWithOutlook = False

End Sub

Я получаю следующую ошибку

Ошибка отправки почты через outlook: определяется приложением или определен объект ошибка.

Есть ли еще что-то, чего мне не хватает, чтобы это работало и отправляло почту? (это работает, если я перехожу с .send на .display.

1 Ответ

0 голосов
/ 12 июня 2019

попробуйте, не в последнюю очередь добавьте Библиотека объектов Microsoft Outlook X.0 , Чтобы добавить эту библиотеку, следуйте этой процедуре Инструменты -> Ссылки -> Выберите библиотеку Microsoft Outlook X.0 Библиотека объектов -> Нажмите ОК: 

  Sub SendMail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)

' Add Microsoft Outlook X.0 Object Library to make the macro work    
On Error GoTo EnvoyerEmailErreur

Dim oOutlook As Outlook.Application
Dim WasOutlookOpen As Boolean
Dim oMailItem As Outlook.MailItem
Dim Body As Variant
Dim Destinataire As String
Dim Sujet As String
Dim Body As String

Destinataire = "Test@test.com"
Sujet = "Choose a subject"
Body = "Your email"    

            If (Body = False) Then
        MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
        Exit Sub
       End If

            PreparerOutlook oOutlook
    Set oMailItem = oOutlook.CreateItem(0)

            With oMailItem
        .To = Destinataire
        .Subject = Sujet

            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><p>" & Body & "</p></html>"



       .Display   
       '.Save      
       .Send              
End With

           If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

   Exit Sub

EnvoyerEmailErreur:
    If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
    If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing

    MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub

Private Sub PreparerOutlook(ByRef oOutlook As Object)


    On Error GoTo PreparerOutlookErreur


On Error Resume Next
    'vérification si Outlook est ouvert
    Set oOutlook = GetObject(, "Outlook.Application")

    If (Err.Number <> 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
    Else    'si Outlook est ouvert, l'instance existante est utilisée
        Set oOutlook = GetObject("Outlook.Application")
        oOutlook.Visible = True
    End If
    Exit Sub

PreparerOutlookErreur:
    MsgBox "Une erreur est survenue lors de l'exécution de PreparerOutlook()..."
End Sub

С уважением

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие темы

...