Bonsoir le forum,

J'utilise ce petit bout de code pour envoyer un message une fois que j'ai mis à jour par macro un tableau.

Les variables Chemin et Nomsauv contiennent respectivement le répertoire où se trouve mon fichier, et son nom.

La macro se déroule bien, mais tout ce que reçoit mon destinataire est un message qui dit "-1".

Je sèche.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
EmailMsg = "Bonjour," & vbCrLf & vbCrLf & "Le tableau a été mis à jour ici:  <" & Chemin & Nomsauv & ">"
EmailSubject = "Mise à jour du tableau"
    Dim ObjOut As Object, ObjSession As Object
    Set ObjOut = CreateObject("Outlook.Application")
    Set ObjSession = ObjOut.GetNamespace("MAPI")
    Set ObjMessage = ObjOut.CreateItem(0)
    objSession.Logon
    With ObjMessage
        .To = "toto@lala.com"
        .Subject = EmailSubject
        .Body = EmailMsg
        .Send
    End With