Envoyer mail avec Outlook depuis Excel par macro

Bonjour,

J'ai une feuille "TOTO"

cells(1,1).value = destinataire (chaine de caractère comprenant les mails espacés du ";" )

cells(2,1).value = personne en copie (chaine de caractère comprenant les mails espacés du ";" )

cells(3,1).value = sujet du mail

cells(3,1).value jusqu'à la ligne 10 à copier tel quel dans le corps du mail (si possible sans effacer la signature générique), si pas possible alors je m'arrangerais.

puis placer si possible le curseur sur le sujet ou en haut du corps du mail.

Savez-vous comment faire ?

Merci par avance,

Gloutoni.

Bonjour,

gloutoni a écrit :

Savez-vous comment faire ?

comme dirait Pierre Dac "oui, on sait le faire" !!! mais en plus je donne la solution

Sub envoi_email()

Dim messagerie As Object
Dim courriel As Object

    Set messagerie = CreateObject("Outlook.Application")
    Set courriel = messagerie.CreateItem(0)
    With courriel
        .To = cells(1,1).value
        .Subject = cells(3,1).value
        .cc = cells(2,1).value
    End With

    Range("A3:A10").Copy
    courriel.display
    Application.Wait (Now + TimeValue("0:00:02"))
    SendKeys "^v", True

End Sub

Pour conserver la signature, il faut passer par le presse-papier

Bonjour,

C'est parfait merci beaucoup

Juste pour la perfection comment placer le curseur de sélection en haut à gauche du message ?

Ajoute après le Ctrl+v

SendKeys "^v", True
SendKeys "{TAB 8}", True

en ajustant le chiffre 8, je ne sais pas combien de tabulations il faut ...