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

Question

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 !

cs_Le Pivert · Answer

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

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

1 réponse

Discussions similaires

Newsletters