Bonjour je souhaite envoyé un email écris en texte enrichi
J'aime placer ma pièce jointe dans un endroit précis du texte
et a l'envoie ma pièce jointe se place a la fin du texte
Voici le code que j'ai généré
SI quelqu'un voit l'erreur
je lui en serait très reconnaissant
Merci d'avance
Code :
- Dim MonOutlook As Outlook.MailItem
- Dim MesAttachements As Outlook.Attachments
- Dim MaOutLookApplication As Object
- Set MaOutLookApplication = CreateObject("Outlook.Application" )
- Set MonOutlookMessage = MaOutLookApplication.CreateItem(olMailItem)
- Set MesAttachements = MonOutlookMessage.Attachments
- MonOutlookMessage.to = adresse
- MonOutlookMessage.cc = adressecc
- MonOutlookMessage.bcc = ""
- MonOutlookMessage.Subject = "Alertes E-transaction pour l'établissement" & " " & Banq & " " & "(" & " " & Count & " " & "alertes" & " )"
- MonOutlookMessage.BodyFormat = olFormatRichText
- MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1
- MonOutlookMessage.body = b4 & vbCrLf & _
- b5 & vbCrLf & _
- b6 & vbCrLf & _
- b7 & vbCrLf & _
- b8 & vbCrLf & _
- b9 & vbCrLf & _
- b10 & vbCrLf & _
- b11 & vbCrLf & _
- b12 & vbCrLf & _
- b13 & vbCrLf & _
- b14 & vbCrLf & _
- b15 & vbCrLf & _
- b16 & vbCrLf & _
- b17 & vbCrLf & _
- b18 & vbCrLf & _
- b19 & vbCrLf & _
- b20 & vbCrLf & _
- b21 & vbCrLf & _
- b22 & vbCrLf
- MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1
- 'affiche 1
- Debug.Print MonOutlookMessage.Attachments(1).Position
- MonOutlookMessage.Send
- Set MonOutlookMessage = Nothing
|
Message édité par darkspoilt le 12-12-2007 à 14:48:37
