Joindre une pièce par destinataire

Question

Bonjour,
Je cherche a rattacher à ce petit code VBA des pièces jointes dont le lien se trouve respectivement dans la cellule E16 et E17. La variable i permet ici de les lire les lignes de 16 à 17 permettant d'insérer deux adresses emails. Je souhaiterai en envoyer plusieurs à différentes adresses email avec pour chaque destinataire une pièce de rattachés.
Merci d'avance, si quelqu'un à une idée ?


Sub SendEMailwithAttachments()
 
For i = 16 To 17

Dim ol As Object, myItem As Object

Set ol = CreateObject("outlook.application")
 Set myItem = ol.CreateItem(olMailItem)

' Read E-mail parameters
sSubject = Range("C6").Value

myItem.To = Cells(i, 4).Value
 myItem.Subject = Range("C6").Value
 myItem.Body = Range("C8").Value

MsgBox "Now sending to " & myItem.To
 myItem.Send
 Set ol = Nothing
 
    Next
 
 End Sub

pijaku · Answer

Bonjour,

Peut-être quelque chose comme ceci (de mémoire) :

Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object

For i = 16 To 17
      Set ol = CreateObject("outlook.application")
      Set myItem = ol.CreateItem(olMailItem)
      ' Read E-mail parameters
      With myItem
         .To = Cells(i, 4).Value
         .Subject = Range("C6").Value
         .Body = Range("C8").Value
         .Attachments.Add Range("E" & i).Value
         MsgBox "Now sending to " & .To
         .Send
      End With
      Set ol = Nothing
      Set myItem = Nothing
   Next
End Sub

Mario · Answer

J'ai recopier le code corriger et j'ai le message suivant

Erreur Automation
Erreur non spécifiée

Joindre une pièce par destinataire

2 réponses

Discussions similaires

Newsletters