Bonjour je place place une pièce jointe en VBA dans un texte mais celui (l'icone) se met al a lin de celui ci,
Si quelqu'un sait comment je peux placer l'icone en plein mileu du texte merci d'avance
Mon email se fait en texte enrichi
Set MonOutLook = CreateObject("Outlook.Application")
Set MonMessage = MonOutLook.Createitem(0)
MonMessage.to = adresse
MonMessage.cc = adressecc
MonMessage.bcc = ""
MonMessage.Subject = "toto"
MonMessage.attachments.Add "D:\test.xls"
MonMessage.attachments(1).Position = 50
'méthode que j'ai trouvé mais je ne sais pas comment on l'utilise
MonMessage.attachments(1).Position
'On écrit le corps du message
'Le corps du message est divisé en X lignes :
Corps = b3
Corps = Corps & Chr(13) & Chr(10) 'Chr(13) & Chr(10) = Touche ENTER
Corps = Corps & b4
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b5
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b6
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b7
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b8
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b9
Endroit ou j'aimerais placé ma pièce jointe
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b10
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b11
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b12
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b13
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b14
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b15
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b16
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b17
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b18
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b19
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b20
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b21
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & b22
Corps = Corps & Chr(13) & Chr(10)
MonMessage.body = Corps
If adresse <> "" Then 'Envoi du message si une adresse est donnée pour la banque
MonMessage.Send