Insertion signature mail vba

Fermé
gnioler Messages postés 88 Date d'inscription mercredi 5 octobre 2011 Statut Membre Dernière intervention 7 janvier 2015 - 13 janv. 2012 à 23:29
gnioler Messages postés 88 Date d'inscription mercredi 5 octobre 2011 Statut Membre Dernière intervention 7 janvier 2015 - 15 janv. 2012 à 12:28
Bonjour,

j'ai une macro qui me permet d'envoyer un fichier excel en pdf par mail qui marche tres bien
par contre il ne me mets pas ma signature automatique qu'il y a quand je fait un nouveau mail

je ne peut pas la mettre dans la macro car suivant qui redige le mail la signature n'est pas la meme

voici ma macro

Sub PDF()
'
Dim oBjMail
Dim pj As String

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\DEVIS\EN PDF\"& [E17] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _

pj = "S:\DEVIS\EN PDF\ " & [E17] & ".pdf"

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

If pj = "Faux" Then Exit Sub
If VarType(pj) = vbBoolean Then Exit Sub
With oBjMail

.To = Cells(21, 5).Value
.CC = ""
.Subject = "offre de prix "
.Attachments.Add pj
.Body = "Bonjour, " & vbCrLf & vbCrLf _
& "vous trouverez ci joint l'offre de prix " & vbCrLf _
& "je reste à votre disposition pour tous renseignement complémentaire " & vbCrLf & vbCrLf _


Kill "S:\DEVIS\EN PDF\" & [E17] & ".pdf"

.Display

End With

End Sub


merci pour vos reponse

PS quand j'enleve le passage
.body
il me mets ma signature

A voir également:

1 réponse

gnioler Messages postés 88 Date d'inscription mercredi 5 octobre 2011 Statut Membre Dernière intervention 7 janvier 2015 3
15 janv. 2012 à 12:28
0