1

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

2

On ne peut pas mettre une pièce jointe au milieu d'un e-mail.
avatar
Mes news pour calculatrices TI: Ti-Gen
Mes projets PC pour calculatrices TI: TIGCC, CalcForge (CalcForgeLP, Emu-TIGCC)
Mes chans IRC: #tigcc et #inspired sur irc.freequest.net (UTF-8)

Liberté, Égalité, Fraternité

3

Si tu peux dans un texte enrichi

http://msdn2.microsoft.com/en-us/library/bb175153.aspx

mais la fonction position ne fonctionne pas, ou plutot je ne sais pas l'utilisé