Envoyer mail avec signature

Version imprimable

Bonjour,

J'ai ce code qui me permet d'ouvrir outlook, de mettre le dest, l'objet et mettre en pièce jointe ma feuille excel en pdf + corps du message. Je garde la maitrise de l'envoi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Evoyerparmail_Click()
 
'pdf Macro
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:\Users\POSTE1\Documents\Essai devis\devis.pdf", Quality:= _
 xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
 OpenAfterPublish:=False
 
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
 
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "C:\Users\POSTE1\Documents\Essai devis\devis.pdf"
If Nom_Fichier = "" Then Exit Sub
 
With oBjMail
    .To = Range("M9")
    .Subject = Range("A2").Value & Range("I11").Value        ' l'objet du mail
    .Body = "Ici le texte du mail"  'le corps du mail ..son contenu
    .Attachments.Add Nom_Fichier  ' ou Nomfichier
    .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
 
End With
 
End Sub

Je n'arrive pas trouver comment faire pour avoir en bas du message ma signature électronique.
Est ce que quelqu'un pourrait m'aider.
higguins

06/07/2013, 10h21
casefayere

Bonjour,
et pourquoi pas dans cette ligne

Code:

.Body = "Ici le texte du mail"

qui deviendrait :

Code:

.Body = "Ici le texte du mail" & Chr(10) & Chr(10) & "Cordialement" & Chr(10) & "ta signature"
08/07/2013, 11h25
HIGGUINS

Bonjour,

Ma signature qui se trouve dans outlook est une image enregistrer dans un dossier. Est ce qu'il serait possible de lui dire dans l'expression .BODY d'aller chercher cette image à cet emplacement. Je sais pas comment faire.

HIGGUINS
08/07/2013, 15h54
HIGGUINS

Re,

J'ai un début de piste : apparemment, l'image doit être en HTML. Au lieu de mettre

Code:

.Body =

Remplacer par :

Code:

.HTMLBody = "<img src=C:\Documents\signature.JPEG>"

Mais je dois faire une erreur de syntaxe car dans le mail, il me marque impossible de lire l'image car déplacée ou supprimée.

Bonjour à tous,
Lorsque j'envoie un mail avec VBA, ma signature de base d'outlook ce mets avec ce code :
Code:

1 2 3 4 5 6 7 8 9 Dim OutMail As Object With OutMail .Display 'AVEC LE LOGO .To = strto .Subject = strsub .HTMLBody = strbody & .HTMLBody .Attachments.Add "C:\Users\thomasperennec\Documents\ECLISSE FRANCE.xls" .Send End With
Essaye et dis moi si cela marche...

08/07/2013, 17h48
HIGGUINS

Re,
Non cela ne marche pas. L'exécution bloque à :

Code:

.Display 'AVEC LE LOGO
08/07/2013, 19h47
Golonne

il ne faut pas toucher à la propriété Body

Bonsoir,

Le truc c'est de ne pas toucher à la propriété Body. Fais le test en créant un objet MailItem que tu display et fais tourner la macro pas à pas. Au début ta signature est là mais dès que tu touches à Body comme tu le fais :

Code:

.Body = "Ici le texte du mail"

La signature s'efface.

Si tu connais le HTML passe par HTMLBody. Pour ma part je ne connais pas.
Il faut passer par du VBA Word pour ajouter du texte via Inspector.WordEditor qui respecte le format et permet le positionnement du texte. La signature est en fait un bookmark caché du text qui s'appelle "_MailAutoSig"

Golonne.

Bonjour,
Essaie de mettre cela avant :

Code:

1
2
Dim OutMail As Object
Set OutMail = OutApp.CreateItem(0)

Et ensuite

Code:

1
2
3
4
5
6
7
8
With OutMail
 .Display   'AVEC LE LOGO
 .To = strto
 .Subject = strsub
 .HTMLBody = strbody & .HTMLBody
 .Attachments.Add "C:\Users\thomasperennec\Documents\tes.xls"
 .Send
 End With

Dis moi si ca marche

Bonjour,

J'ai remplacer :

Code:

Dim oBjMail

Par :

Code:

Dim OutMail As Object

et :

Code:

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

Par :

Code:

Set OutMail = OutApp.CreateItem(0)

Et puis j'ai inséré ton code :
Code:

1 2 3 4 5 6 7 8 With OutMail .Display .To = Range("M9") .Subject = Range("A2").Value & Range("I11").Value ' l'objet du mail .HTMLBody = strbody & .HTMLBody .Attachments.Add Nom_Fichier 'Nom fichier .Display ' Ici on peut supprimer pour l'envoyer sans vérification End With
Ca me marche pas => erreur d'excécution 424 : objet requis.
:cry:

Bonjour,

J'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String
Dim strsub As String, strbody As String
 
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 
strto = Range("M9") 'déstinataire
strsub = Range("A2").Value & Range("I11").Value    ' l'objet du mail
strbody = "Ici le texte du mail" &  "Cordialement" 'Corps
 
With OutMail
.Display   'AVEC LE LOGO
.To = strto
.Subject = strsub
.HTMLBody = strbody & .HTMLBody
.Attachments.Add "C:\..\devis.pdf"
End With
 
End Sub

Par contre comment ajouter des saut de ligne entre Ici le texte et Cordialement. Chr(10) ne marche pas.

10/07/2013, 12h21
HIGGUINS

Je pense avoir trouvé la solution pour pouvoir mettre des sauts de ligne dans mon le corps de mon mail. Sur la ligne strbody mettre :

Code:

strbody = "Bonjour" & " " & " " & "Veuillez trouver" & " " & " " & "Je reste" & " " & " " & "Cordialement," 'Ici le texte du mail

Par contre, entre Bonjour et le reste du texte j'ai une différence de format (pas même police et taille de police). Est ce que quelqu'un saurait comment faire.
10/07/2013, 13h35
dark_sidious

Bonjour,
Si tu veux que tout ton texte ait la même police, il faut que tu te penches sur cela mais en HTML. Et à ce niveau je ne m'y connais pas hormis le ...

Ou alors regarde aussi dans les paramètres d'Outlook...
10/07/2013, 15h59
HIGGUINS

J'AI TROUVE.... JE PENSE QUE CELA DEVRAIT FONCTIONNER :lol::lol::lol:
Code à mettre au niveau de la ligne strbody :

Code:

strbody = "" & "Bonjour" & " " & " " & "Veuillez trouver" & " " & " " & "Je reste" & " " & " " & "Cordialement," 'Ici le texte du mail

En mettant cette syntaxe, j'ai le texte qui apparaît dans outlook dans la même police et même taille.
10/07/2013, 17h25
dark_sidious

Ok parfait, n'oublie pas de mettre "résolu" si c'est bon.
Bonne soirée.