Mail VBA faisant appel à un formulaire Mail

Bonjour à Tou(te)s,

Je maîtrise bien l'envoie de mails en VBA mais je suis confronté à la lourdeur de l'écriture du corps du mail, dès que l'on s'écarte du mail très basique.

Existe-t-il un moyen de créer un mail dans Outlook (j'ai vu que l'on pouvait créer un formulaire dans l'onglet Développement d'Outlook) et de l'appeler dans ensuite dans notre procédure d'envoi du mail ?

Je ne maîtrise pas le HTML mais j'ai exploré un peu ses possibilités au niveau de la mise en forme du texte. C'est prometteur mais assez lourd aussi...

Donc en résumé, peut-on écrire facilement un mail, le mettre en forme, voir y insérer des images ou des signatures, et appeler le tout dans notre code VBA d'envoi ?

Merci d'avance !

Alci

Bonjour,

Dans Outlook, vous pouvez créer un modèle de formulaire (.oft) , appeler ensuite ce modèle dans VBA et le compléter.

Ok merci,

Auriez vous un embryon de code qui en parle ??

Merci

Vous pourriez utiliser une sous-procédure de ce type

 Sub envoi_mail(destinataire, objet, début_corps_mail, ByVal erreur As Boolean)

    On Error Resume Next    'désactivation routine d'erreur
    erreur = False

    'Assignation des applications Outlook et de l'objet email
    Set olk = CreateObject("outlook.application")
    Set email = olk.CreateItemFromTemplate(chemin & "formulaire.oft")

    With email
        '....... remplissage sujet, objet, et adresse
        .To = destinataire
        .Subject = objet
        .HTMLBody = début_corps_mail & .HTMLBody
        '....... envoie le message
        .Send
        If Err.Number <> 0 Then erreur = True:   Err.Clear
    End With

    'Désassignation objets
     Set olk = Nothing
     Set email = Nothing

End Sub

Ça c’est super,

Un grand merci !!