Discussion :

[Bombar]

Bonsoir,
Malgré de nombreuses recherches, je n'ai pas trouvé de réponses à mon pb ....

J'ai créer un modèle Outlook (.oft)
Je pilote l'envoi du mail via une procédure sous Access
Jusque là, tout va bien ....

Mon modèle est composé de texte et d'un tableau.

Bonjour  #Nom#

A	     B	          C
1	#Model#	
2		
3		
4		

Mon code (une partie):

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Ol As Object
Dim MM As Object
Dim Mail_Model As String
 
Set Ol = CreateObject("Outlook.Application")
Set MM = Ol.CreateItemFromTemplate(Mail_Model)
 
With MM
    .HTMLBody = Replace(MM.HTMLBody, "#Nom#", Nom)
end with

Mon P :
J'aimerai pouvoir faire de même pour remplacer #Model# dans mon tableau.

Merci

[Oliv-]

Bonjour,

Et qu'est ce qui t'en empêche ?

Code :

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

1
2
3
4
5
 
Dim Model
Model="TOTO"
 
.HTMLBody = Replace(MM.HTMLBody, "#Model#", Model)

[Bombar]

Bonjour Oliv-

J'ai essayé de modifier #Model# de la même manière.
Cela ne fonctionne pas ....
Certainement parce que #Model# se trouve dans un tableau.

Il faut certainement faire référence au tableau dans le code .... ?
Mais je ne sais pas comment ....

[Oliv-]

Dans mon test cela fonctionnait bien.

Le modèle est il bien au format HTML et pas "Texte enrichi" ?


PS/ ATTENTION CEPENDANT A LA CASSE

Code :

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

.HTMLBody = Replace(MM.HTMLBody, "#Model#", Model, , , vbTextCompare)

[Bombar]

En fait, lors de la création de mon model Outlook, j'ai créé directement un tableau dans le corps du mail via Insertion => Tableau ....
Puis j'ai enregistré mon mail : Fichier => Enregistrer sous => avec type = Modèle Outlook
j'ai donc générer un fichier nommé "Mail_Model.oft"
C'est ce model que j'utilise avec : Set MM = Ol.CreateItemFromTemplate(Mail_Model)

j'ai mis mon Mail_Model en pièce jointe, si ca peut aider ....

[Oliv-]

je confirme cela fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim mm As MailItem
    Set mm = CreateItemFromTemplate("c:\temp\mail_model.oft")
    Dim Model
    Model = "TOTO"
    With mm
        .HTMLBody = Replace(mm.HTMLBody, "#Model#", Model)
        mm.Display
    End With
 
End Sub

[Bombar]

Bonjour Oliv-

Après avoir refait mon modèle Outlook ..... Effectivement, cela fonctionne .... !?!?!?
J'aurai peut-être du commencer par là ....
Merci d'avoir pris de ton temps pour me répondre.