Excel - VBA - Email: ajouter signature (jpg)
Misterbean1
Messages postés
53
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voilà mon problème, je vais essayer d'être le plus précis afin que vous puissiez m'aider au mieux, sachant que je suis un grand novice ....
J'ai réussi à créer une macro qui me permet de créer un fichier PDF à partir d'une FEUILLE excel et de sauver le fichier PDF à un endroit bien précis ainsi que me préparer un Email incluant ce fichier ainsi qu'un corps de texte, sujet, To, Cc, ..... Jusque là tout est ok .
j'aimerais améliorer l'automatisation idéalement comme suit:
J'aimerais que ma signature (en JPG) soit présente en dessous du corps de texte, tout comme je le ferais pour un Email classique. Je peux le faire manuellement mais préfèrerais que cela fasse partie du code VBA dans excel
D'avance merci pour vos lumières à ce sujet !!!
Voilà mon problème, je vais essayer d'être le plus précis afin que vous puissiez m'aider au mieux, sachant que je suis un grand novice ....
J'ai réussi à créer une macro qui me permet de créer un fichier PDF à partir d'une FEUILLE excel et de sauver le fichier PDF à un endroit bien précis ainsi que me préparer un Email incluant ce fichier ainsi qu'un corps de texte, sujet, To, Cc, ..... Jusque là tout est ok .
j'aimerais améliorer l'automatisation idéalement comme suit:
J'aimerais que ma signature (en JPG) soit présente en dessous du corps de texte, tout comme je le ferais pour un Email classique. Je peux le faire manuellement mais préfèrerais que cela fasse partie du code VBA dans excel
D'avance merci pour vos lumières à ce sujet !!!
2 réponses
-
Bonjour,
Peut-^tre nous dire avec quelle yechnologie utilises tu pour tes mails
Outlook, CDO... ?
-
J'utilise Outlook. Voici un extrait de la macro et du module de Fonctions (functionModule)
j'espère que cela pourra vous aider à m'aider.
Merci.
*****************
Extrait de la macro:
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileName, "xxx@yyyy.be", "Subject", _
"Corps de texte Email" _
& vbNewLine & vbNewLine & "Mon nom", False
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End Sub
*****************
Exttrait de la fonction qui est liée:
Function RDB_Mail_PDF_Outlook(FileNamePDF As String, StrTo As String, StrBody As String, _
StrSubject As String, StrBody As String, Send As Boolean)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = StrTo
.CC = ""
.BCC = ""
.Subject = StrSubject
.Body = StrBody
.Attachments.Add FileNamePDF
If Send = True Then
.Send
Else
.Display
End If
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Function
