Joindre une pièce par destinataire

Fermé

Mario - Modifié le 26 oct. 2018 à 11:35
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 26 oct. 2018 à 14:19

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

A voir également:

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié le 26 oct. 2018 à 11:40

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

Réponse 2 / 2

Mario
26 oct. 2018 à 14:16

J'ai recopier le code corriger et j'ai le message suivant

Erreur Automation
Erreur non spécifiée

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
26 oct. 2018 à 14:19

Le code que tu as donné au départ (dans ta question) fonctionne bien chez toi?

Discussions similaires

One Piece Kai en streaming ?

Mon correspondant ne reçoit pas mes SMS / textos. Que faire ?

Télécharger épisodes One Piece

One piece Kai vf

Comment récupérer mon compte Facebook sans pièce d'identité ?

Discussions similaires

Newsletters