VBA Excel envoi email different destinataire et corps de mes

Bonjour à tous

J'éspère resoudre mon problème avec votre aide , en effet je connais certe parfaitement les formules excel et de simple code vba mais la le niveau est trop difficile pour moi , je le reconnais.

En effet j'ai un fichier liée a une base de donnée qui peut contenir + de 1000 lignes. je perd donc un temps précieux a tous envoyer 1 par 1

Voila ce que j'aimerais faire ( je suis sous Excel 2013 et Outlook pour les email )

j'aimerais pour m'économiser du temps ( car personnellement on me demande tous et n'importe quoi..)

que:

pour chaque destinataire ( colonne A ) un email soit envoyer avec l'objet ( colonne B) et en texte du mail 4 lignes écrite comme ceux-ci

ligne 1: TEXTE 1 (colonne c )

ligne 2: TEXTE 2 ( colonne d )

ligne 3: texte 3 ( colonne e )

ligne 4 teste 4 ( colonne f )

comme vous pouvez le voir les texte sont diffèrent pour chaque destinataire

Est ce que quelqu'un pourrait me faire un code VBA? vraiment voila plusieurs jours que je parcours les forum a la recherche de code , regarder des vidéos etc...impossible , j'avoue que je n'ai pas asser de compétence

Merci a tous pour votre aide , en espèrent que quelqu'un est une ame charitable

Bonjour

l'envoi de mail est un classique...

ci joint une proposition

pour visualiser le mail et faire un envoi manuel garder le code tel quel (bien pour faire des essais)

pour envoyer le mail sans le voir voir les lignes surligner et mettre .display en commentaire et remettre .send en actif

fred

Option Explicit
Public Sub EnvoiAutomatiqueMail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim adresse As String
Dim message As String
Dim sujet As String
Dim i As Integer
With Sheets("feuil1")
    For i = 6 To .[A65536].End(xlUp).Row ' on passe en revue toutes les lignes de la colonne A
        'objet du mail
        sujet = .Cells(i, "B")
        'corps du mail
        message = .Cells(i, "C") & vbCr & .Cells(i, "D") & vbCr & .Cells(i, "E") & vbCr & .Cells(i, "F")
        'adresse mail destinataire
        adresse = .Cells(i, "A")
        Set OutlookApp = CreateObject("outlook.application")
        Set OutlookMail = OutlookApp.createitem(0)
            With OutlookMail
            .Subject = sujet 'sujet du mail
            .To = adresse 'adresse mail destinataire
            .body = message 'corps du message
         .Display 'affiche le mail
            '.send 'on envoie le mail créé
            End With
    Next i 'on passe au mail suivant
End With
End Sub

magnifique ! fonction parfaitement mille merci merci merci merciiiiiiiiii

dans ce cas :

merci

fred

Super fichier vraiment c'est parfait , simple question mais tu a deja fait énormément

Pour ce qui est du texte 3 , y a t il moyen dans le mail de le transformer directement en lien hypertexte?

c'est bon je suis arrivé merci mille fois encore

nouveau fichier

comme j'avais jamais fait il a fallut que je recherche un peu....

fred

bonjour,

cette solution m'intéresse et j'ai essayé mais j'ai un message d'erreur ....

j'ai erreur de compilation sub ou fonction non définie à la ligne "sheet" ....

de plus y'a t'il moyen de rajouter une pièce d'un fichier? un fichier pdf different pour chaque mail a envoyer? venant tous d'un même répertoire?

mille merci si qqun sait m'aider

watou

Bonjour

Watou ouvre un post directement ...

fred