Envoi de Mails sur Excel : adresses et textes dans la feuille [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017
-
Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017
-
Bonjour,

Je voudrais envoyer environ 250 mails à partir d'un fichier Excel, où pour chaque ligne j'ai l'adresse mail dans la colonne B et le texte à envoyer dans la colonne C.

J'ai fait une petite boucle pour renvoyer à chaque fois à la ligne suivante, mais je bloque ensuite dans le code du mail pour bien définir les objets "Recip" et "Body" du code ci-dessous (je suis débutant concernant les macros) :

Sub BoucleDestinataires()
Dim i As Long
For i = 1 To 3
Call Mail

Next i
End Sub


Sub Mail()
Dim OutlookApp As Object
Dim Mess As Object, Recip As String

Recip = ["B" & i].Value
Set OutlookApp = CreateObject("Outlook.Application")
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Subject = "Infos"
.Body = ["C" & i].Value
.Recipients.Add Recip
.Send
End With

End Sub


Quelqu'un aurait-il une solution ?

Merci beaucoup !

1 réponse

Messages postés
7108
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
583
Bonjour,

Comme ceci:

Option Explicit
Dim i As Integer
Private Sub CommandButton1_Click()
For i = 1 To 3
Call Mail
Next i
End Sub
Sub Mail()
Dim OutlookApp As Object
Dim Mess As Object, Recip As String
Recip = Range("B" & i).Value
Set OutlookApp = CreateObject("Outlook.Application")
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Subject = "Infos"
.Body = Range("C" & i).Value
.Recipients.Add Recip
.Send
End With
End Sub

Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017

Merci beaucoup pour votre réponse ! Un message d'erreur m'affiche "Erreur de compilation Variable non définie" avec olMailItem surligné en bleu. Sauriez-vous d'où vient cette erreur ?
Messages postés
7108
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
583 >
Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017

C'est simple, tout est dit

Variable non définie" avec olMailItem

la variable olMailItem n'est pas déclarée!

Toujours mettre Option Explicit, cela oblige à déclarer vos variable
Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017

Merci beaucoup !