Discussion :

[HIGGUINS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,
et pourquoi pas dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Body = "Ici le texte du mail"

qui deviendrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Body = "Ici le texte du mail" & Chr(10) & Chr(10) & "Cordialement" & Chr(10) & "ta signature"

[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

[HIGGUINS]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Body =

Remplacer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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.

[dark_sidious]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[HIGGUINS]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Display   'AVEC LE LOGO