Discussion :

[alain58]

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.

[preverse]

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

[alain58]

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 .....

[preverse]

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

[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....

[alain58]

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

[bidou]

Un truc comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[t_predator]

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.

[ledisciple]

Un truc comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 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

[mgascult]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[mgascult]

bonjour,

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

bonne journée.