[VBA-E] Ouvrir et remplir un modèle OFT

Bonjour à tous,

J'aimerai, lors d'un click sous excel, pouvoir ouvrir un fichier OFT (que j'ai déjà). Ce fichier oft est un modèle de Outlook et j'aimerai grace au code VB pouvoir remplir l'expéditeur le ou les destinataires ainsi que le sujet et mème si possible le contenu .....

Es ce que cela est possible ???

Merci d'avance de votre aide.

Ca à l'air d'être juste une histoire de lecture/écriture dans un fichier donc pas de raison que ce ne soit pas possible...

P.R

En fait la chose que je me demande c'est que l'adresse que je met en destinataire, par exemple, sois bien interpréter par Outlook comme un destinataire .....

Je ne sais pas si c'est possible de façon automatique par Excel (Excel sait-il interpréter les fichier OFT ???).
Sinon, il faut que tu analyses le fichier avec ton code.

P.R

avec la méthode CreateItemFromTemplate qui prend un oft comme argument tu crée un objet mailitem et lui prendra correctement tes destinataires, sujet etc....

Citation:

---

Envoyé par bidou

avec la méthode CreateItemFromTemplate qui prend un oft comme argument tu crée un objet mailitem et lui prendra correctement tes destinataires, sujet etc....

---

Merci pour cette info mais pourrais tu m'en dire un peu plus car j'ai du mal a trouver ta méthode ....

Merci

Un truc comme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub UtilOFT()   Dim MonOutl As Outlook.Application, Message As Outlook.MailItem, Destinataire As Recipient Set MonOutl = New Outlook.Application   Set Message = MonOutl.CreateItemFromTemplate("C:\Program Files\Microsoft Office\Modèles\Outlook\email.oft") Set Destinataire = Message.Recipients.Add("toto") Destinataire.Type = olTo Destinataire.Resolve Message.Display   End Sub

---

bonjour, j'ai la même question, j'ai bien compris pour le destinataire, comment modifier le sujet et le texte du message ?
Dans mon OFT j’ai déjà du texte, mais je voudrais en rajouter en tout début à partir d’une cellule existante.

Citation:

---

Envoyé par bidou

Un truc comme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub UtilOFT()   Dim MonOutl As Outlook.Application, Message As Outlook.MailItem, Destinataire As Recipient Set MonOutl = New Outlook.Application   Set Message = MonOutl.CreateItemFromTemplate("C:\Program Files\Microsoft Office\Modèles\Outlook\email.oft") Set Destinataire = Message.Recipients.Add("toto") Destinataire.Type = olTo Destinataire.Resolve Message.Display   End Sub

---

---

Mon ami :google: m'ayant entraîner sur cette page, je me permets une précision.
Ce code fonctionne très bien, mais avant il faut avoir activé la référence "Microsoft Outlook Library"
Dans excel faire > Développeur>Visual Basic
Dans la fenêtre "Microsoft Visual Basic pour applications" > Outils > Références > Microsoft Outlook Library

Bonjour,

Je viens de trouver ce post qui répond à mes recherches concernant l'ouverture d'un modèle .OFT et je souhaiterai ajouter des fonctionnalités mais elles ne fonctionnent pas (elles ne sont peut etre pas compatibles sous cette forme).
Quelqu'un a t'il les bonnes commandes?

Je vous en remercie.

Code:

---

1 2 3 4 5 6 7

objOutlookMsg.SentOnBehalfOfName = "caf-par@toto.com" ' insertion de l'adresse expéditrice   objOutlookMsg.CC = "caf-par@toto.com"   objOutlookMsg.Subject = "Demande de carte affaires n° " & Me.txt_numero_pulsar.Value   objOutlookMsg.Attachments.Add "C:\Temp\Demande Individuelle - MARTIN.pdf"

---

bonjour,

je viens d'ouvrir un nouveau post dans Access VBA.
Ne tenez plus compte de celui-ci.

bonne journée.