Ouvrir outlook pour l'envoie de mail si il n'est pas actif

[PEX]

bonjour,

je reviens vers vous pour completer un code :

voila, j'ai programmer a la fermeture de mon fichier excel l'envoie d'un mail automatique apres enregistrement du fichier.
J'utilise a messagerie outlook. Quand outlook est ouvert le mail est envoyer puis receptionné ! Or quand outlook n'est pas ouvert le message ne s'envoie pas. J'aurai voulu comment je dois completer mon code pour que outlook se lance meme s'il nest pas ouvert .

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour" & vbNewLine & vbNewLine & _
              "" & vbNewLine & _
              " le fichier de gestion des frigos a été modifié le " & Now & " par " & Application.UserName & vbNewLine & vbNewLine & _
              "Ce mail est généré automatiquement" & vbNewLine & _
               "" & vbNewLine & _
                "" & vbNewLine & _
              "Veuillez ne pas repondre" & vbNewLine & _
              ""

    On Error Resume Next
    With OutMail
        .To = "...@....fr"
        .Cc = ""
        .Bcc = ""
        .Subject = "Suivi fichier gestion des stocks"
        .Body = strbody
              .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

cordialement

pex😕

 

[JNP]

Re : Ouvrir outlook pour l'envoie de mail si il n'est pas actif

Bonjour Pex 🙂,
A tester, déclarer les variables en réel Outlook

Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItemSet OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)

sans oublier d'ouvrir la référence Microsoft Outlook XX.0 Object Library.
En principe, quand je l'utilisais comme ça, ça ouvrait OutLook (mais j'utilisais toujours .Display et pas .Send)
Bonne suite 😎

 

[PEX]

Re : Ouvrir outlook pour l'envoie de mail si il n'est pas actif

Bonjour Pex 🙂,
A tester, déclarer les variables en réel Outlook

Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItemSet OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)

sans oublier d'ouvrir la référence Microsoft Outlook XX.0 Object Library.
En principe, quand je l'utilisais comme ça, ça ouvrait OutLook (mais j'utilisais toujours .Display et pas .Send)
Bonne suite 😎

j'ai declarer mais jai un soucis ... sa ne marche pas ! je le met avant mon code et j'ai une erreur ! au pire met le moi vis a vis de mon code et j'essairai ..

PS: je ne suis pas un fou du VBA j'apprend sur le tas rapidement mais parfois je comprend pas forcement tout du premier coup

cordialement

pex

 

[JNP]

Re : Ouvrir outlook pour l'envoie de mail si il n'est pas actif

Re 🙂,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
'    OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(OLMailItem)
strbody = "Bonjour" & vbNewLine & vbNewLine & _
          "" & vbNewLine & _
          " le fichier de gestion des frigos a été modifié le " & Now & " par " & Application.UserName & vbNewLine & vbNewLine & _
          "Ce mail est généré automatiquement" & vbNewLine & _
           "" & vbNewLine & _
            "" & vbNewLine & _
          "Veuillez ne pas repondre" & vbNewLine & _
          ""
With OutMail
    .To = "...@....fr"
    .Cc = ""
    .Bcc = ""
    .Subject = "Suivi fichier gestion des stocks"
    .Body = strbody
    .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Je ne vois pas à quoi sert Logon, donc je l'ai mis en commentaire 🙄...
Et sinon, n'oublie pas d'aller dans Outils -> Références... de chercher la bibliothèque "Microsoft Outlook XX.0 Object Library" et de la cocher 😛...
Bonne suite 😎