[VBA] probleme de pièce jointe outlook

probleme de pièce jointe outlook [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 12-12-2007 à 14:45:39    

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 :
  1. Dim MonOutlook As Outlook.MailItem
  2.   Dim MesAttachements As Outlook.Attachments
  3.   Dim MaOutLookApplication As Object
  5.   Set MaOutLookApplication = CreateObject("Outlook.Application" )
  6.   Set MonOutlookMessage = MaOutLookApplication.CreateItem(olMailItem)
  7.   Set MesAttachements = MonOutlookMessage.Attachments
  9.   MonOutlookMessage.to = adresse
  10.   MonOutlookMessage.cc = adressecc
  11.   MonOutlookMessage.bcc = ""
  12.   MonOutlookMessage.Subject = "Alertes E-transaction pour l'établissement" & " " & Banq & " " & "(" & " " & Count & " " & "alertes" & " )"
  15. MonOutlookMessage.BodyFormat = olFormatRichText
  16. MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1
  17. MonOutlookMessage.body = b4 & vbCrLf & _
  18.                          b5 & vbCrLf & _
  19.                          b6 & vbCrLf & _
  20.                          b7 & vbCrLf & _
  21.                          b8 & vbCrLf & _
  22.                          b9 & vbCrLf & _
  23.                          b10 & vbCrLf & _
  24.                          b11 & vbCrLf & _
  25.                          b12 & vbCrLf & _
  26.                          b13 & vbCrLf & _
  27.                          b14 & vbCrLf & _
  28.                          b15 & vbCrLf & _
  29.                          b16 & vbCrLf & _
  30.                          b17 & vbCrLf & _
  31.                          b18 & vbCrLf & _
  32.                          b19 & vbCrLf & _
  33.                          b20 & vbCrLf & _
  34.                          b21 & vbCrLf & _
  35.                          b22 & vbCrLf
  36. MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1
  40.   'affiche 1
  41.   Debug.Print MonOutlookMessage.Attachments(1).Position
  43.   MonOutlookMessage.Send
  45.   Set MonOutlookMessage = Nothing


Message édité par darkspoilt le 12-12-2007 à 14:48:37
Reply

Marsh Posté le 12-12-2007 à 14:45:39   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed