Mails automatique Outlook

Bonjour,

Je cherche une aide pour m'expliquer comment mettre en place une macro sous outlook pour générer mes mails de façon automatique via une base de données Excel (j ai activé le développeur dans outlook).

Dans ma base de données il y a 80 lignes soit 80 mails à générer.

Je ne veux pas que la macro m'envoie les mails, j'aimerais que la macro génère mes mails de façon automatique en reprenant :

- le mail de mon destinataire " colonne A" de mon fichier Excel

- le destinataire en copie " Colonne B"

- l'objet de mon mail "Colonne E"

- un corps de mail unique pour tous les mails (qui serait directement dans la macro).

Ci-joint mon fichier (avec deux lignes) pour vous montrer comment il est fait. J'aimerais que la macro me crée autant de mail que j'ai de lignes dans mon fichier Excel sans les envoyer ( car je dois rajouter des fichiers).

Je vous remercie par avance.

Sandrine.

Bonjour Sandrine,

comme personne n'a pris le sujet, je vais m'y mettre bien que je ne travaille plus avec outlook

à tester (car je n'ai pas pu le faire)

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim cel As Range

Set messagerie = CreateObject("Outlook.Application")

For Each cel In Range("A2:A" & Range("A1").End(xlDown).Row)

        Set email = messagerie.CreateItem(0)

        With email
            .to = cel                   ' colonne A
            .cc = cel.Offset(0, 1)      ' B
            .Subject = cel.Offset(0, 4) ' E
            .body = "Bonjour " & cel.Offset(0, 2) & " " & cel.Offset(0, 3) & "\n\nbla bla\ndeuxième ligne"
            .ReadReceiptRequested = True
            .display ' à remplacer par .send si ok
        End With

        Set email = Nothing

Next cel

Set messagerie = Nothing

End Sub

Il est possible aussi de joindre automatiquement des fichiers

Michel

bonjour Sandrine

comment faire pour envoyer un onglet de mon classeur avec Outlook

Merci

Est-ce que tu peux l'envoyer en pdf ? ce serait la solution la plus simple

Un exemple : il enverra la partie définie comme impression

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim nompdf As String

On Error GoTo erreur

    nompdf = Environ("Temp") & "\" & "fichier test"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = [destinataire]
        .Subject = [titre]
        .body = "Veuillez trouver en pièce jointe ..."
        .ReadReceiptRequested = True
        .Attachments.Add nompdf & ".pdf"
        .display
    End With
    Set email = Nothing
    Set messagerie = Nothing

    Kill Environ("Temp") & "\" & "fichier test" & ".pdf"

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Sub test_outlook()
Dim messagerie As Object
On Error GoTo err_handler
Set messagerie = CreateObject("Outlook.Application")
err_handler:
    MsgBox "L'application Outlook est absente de ce poste de travail !"
End Sub

Bonsoir,

Désole de ma réponse tardive, la première répond parfaitement à mon besoin.

Je ne pouvais pas formuler mon texte dans un fichier PDF...

Merci beaucoup :-)