Envoyer un message avec outlook

Bonjour,

Je voudrai créer une macro qui permettrait d'après une feuille excel d'ouvrir Outlook, mettre l'adresse dans le destintaire et le reste de la feuille dans le corps du mail.

Pensez-vous que c'est possible et si oui comment faire ?

Merci bcp pour votre aide.

Bonne journée

Frédéric

49type.xlsx (9.18 Ko)
Option Explicit
Sub envoi_email()

Dim messagerie As Object
Dim courriel As Object

    Cells.Copy

    Set messagerie = CreateObject("Outlook.Application")
    Set courriel = messagerie.CreateItem(0)
    With courriel
        .To = "truc.muche@gouv.fr"
        .Subject = "envoi mail"
        .display
    End With

    Application.Wait (Now + TimeValue("0:00:02"))
    SendKeys "^v", True
    Application.CutCopyMode = False

    Set courriel = Nothing
    Set messagerie = Nothing

End Sub

je n'ai pas réussi à charger ton fichier ... donc à adapter

Rechercher des sujets similaires à "envoyer message outlook"