XL 2016 Envoi mail

vinz602

XLDnaute Junior
Bonjour

j'essaye d'adapter un code VBA pour envoyer par email via outlook
dans le fichier excel Feuil1 j'ai:
Colonne A j'ai la date
Colonne B le Nom
Colonne C prénom
Colonne D adresse mail
Colonne E statut
je souhaiterai envoi les email que si la colonne E est renseigné avec "OK".
et adapté l'email avec les éléments de la ligne qui est OK
MonSujet = "Anniversaire"
MonDestinataire = "champs de la colonne D"
MonContenu = "Bonjour "champs de la colonne C" Bon anniversaire :)."
je ne comprend pas comment sélectionner des zones dans Excel

Qui pourrai m'aider?

VB:
Sub TestEnvoiEmail_Variables()



'définition des variables

Dim MonSujet As String MonSujet = "Anniversaire"

Dim MonDestinataire As String MonDestinataire = "champs de la colonne D"

Dim MonContenu As String MonContenu = "Bonjour "champs de la colonne C" Bon anniversaire :)."


    'test envoi de l'email

        Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu,)


MsgBox "Terminé..."

End Sub
 

vinz602

XLDnaute Junior
Bonjour

j'ai trouvé une solution sur votre forum :)
elle fonctionne parfaitement mais je n'arrive pas à faire partir les mail avec une adresse différente de celle par défaut dans outlook.
j'ai trouver ce code mais ça plante :

Dim CompteOutlook As Account
For Each CompteOutlook In oOutlook.Session.Accounts
If CompteOutlook.SmtpAddress = "mon mail secondaire" Then ' <-- modifiez l'adresse
.SendUsingAccount = CompteOutlook
Exit For
End If
Next CompteOutlook

Pouvez vous m'aider?



VB:
Sub mailto_reception()
With Sheets("Reception")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
        '--boucle
    For i = 2 To dl
        '--choix envoi ("x" en colonne G) ou pas
        If Cells(i, 6) = "x" Then
        Cells(i, 7) = ""
        Set ml = ol.createitem(0)
        ml.To = .Cells(i, 4)
        ml.Subject = .Cells(i, 8)
        'ml.CC = .Cells(i, 10)
        'ml.BCC = .Cells(i, 11)
        ml.Body = .Cells(i, 9)

        ml.send
     
        Cells(i, 7) = Now
   
        End If
    Next i
End With
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088