Autres Envoyer mail personnalisé via VBA

nouun

XLDnaute Nouveau
Bonjour à tous,

Etant novice sur VBA, je souhaiterais créer un code qui récupère le nom et l'adresse mail dans chacune des colonnes correspondantes dans excel. Pour cela, j'ai écris ce code mais malheureusement j'ai reçu ce message d'erreur en l'exécutant. " Erreur d'exécution '1004', erreur définie par l'application ou par l'objet".

Voici le code :


Voici le Code :



Sub envoiparmail()



Dim ObjOutlook As New Outlook.Application

Dim oBjMail

Dim Nom As String

Dim Email As String

Dim i As Integer





Set FL = Worksheets("Destinataires")



LineNB = ActiveCell.Row



Nom = FL.Cells(Ligne, 1)

Mail = FL.Cells(Ligne, 2)

heures = FL.Cells(Ligne, 3)



Body = "Bonjour " + Nom + " Selon le fichier extraction du 22/03/2021,vous avez . Vous en souhaitant bonne réception.Cordialement. "



Subject = Nom + "-" + heures



Set ObjOutlook = New Outlook.Application

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

destinataires = Array("****.*****@gmail.com", _

"****.*****@gmail.com", _

"****.*****@gmail.com")



With oBjMail



For i = 0 To UBound(destinataires)

Set dest_A = .Recipients.Add(destinataires(i))

dest_A.Type = olTo

Next i



.Subject = "Heures imputees"

.HTMLBody = Body

.display



End With

End Sub
 

Discussions similaires

Réponses
3
Affichages
178