Envoi de Mails sur Excel : adresses et textes dans la feuille

Résolu/Fermé

loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017 - 24 mars 2017 à 16:41
loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017 - 24 mars 2017 à 19:31

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 !

A voir également:

Envoi de Mails sur Excel : adresses et textes dans la feuille
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne sur excel - Guide
Mise en forme conditionnelle excel - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
24 mars 2017 à 16:54

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

loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 17:16

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 ?

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 17:34

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

loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 19:31

Merci beaucoup !

Discussions similaires

Échec d’envoie message messenger

je recois mais ne pe plus envoyer de mail

Discussions similaires

Newsletters