Envoi de Mails sur Excel : adresses et textes dans la feuille
Résolu
loquins
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
loquins Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
loquins Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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 !
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
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour,
Comme ceci:
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
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