Re : Fichier OFT
Bonjour,
je vous fais part d'une réponse que j'ai trouvé et qui fonctionne.
Crée ton modele sur C:\mail\monmail.oft
Dans le corps du mail, écrit %1 n'importe où et %2 à un autre endroit
Dans ton fichier excel, appuie sur les touches ALT + F11
Dans le menu Outils -> références, il faut cocher Microsoft Outlook 15.0 Library (ou autre version)
Pour commencer crée un bouton dans excel et va dans le code du bouton et copie ça
Dim objOutlook As Object
Dim objOutlookMsg As MailItem
Dim objOutlookRecip As Recipient
Dim objOutlookAttach As Object
' Crée la session Outlook.
Set objOutlook = CreateObject("Outlook.Application")
' Crée le message.
Set objOutlookMsg = objOutlook.CreateItemFromTemplate("C:\monmail.oft") 'Ou indique le chemin où se trouve le modèle
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add("yoyo@orange.fr") 'Plus tard tu mettras Range(adresse de la cellule)
'Modification du corps du mail
xxx = Replace(.HTMLBody, "%1", "Bonjour") 'Plus tard tu mettras Range(adresse de la cellule)
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%2", "aUREVOIR") 'Plus tard tu mettras Range(adresse de la cellule)
.HTMLBody = xxx
.Importance = 2 'Haute
.Display
End With
Set objOutlook = Nothing