Discussion :

[Off$ide]

salut à tous

à partir d'access 2003, j'envoie des emails en créant un objet outlook.

mais comme dans ma société il y a des utilisateurs en outlook 2000 et 97, je dois tester avant si je peux envoyer des messages au format HTML ou pas.

pour ce faire je regarde la version d'outlook avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim objOutlook As Object 'Outlook.Application
    Dim objOutlookMsg As Object 'Outlook.MailItem
    Dim VersionOutlook As String
 
    Set objOutlook = CreateObject("Outlook.Application")
 
    Set objOutlookMsg = objOutlook.CreateItem(0)
 
    mesStr = monMes
    objOutlookMsg.Subject = "sujet"
    VersionOutlook = objOutlook.Version

ça marche bien avec outlook 2000, mais quand l'utilisateur a outlook 97 sur son poste, ça plante sur "objOutlook.Version".

merci pour votre aide

[Strontium]

Ca plante comment? message d'erreur?
si oui, alors tu peux supposer que ce message d'erreur veut dire qu'il a 97 et tu traite en fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Goto err_97
VersionOutlook = objOutlook.Version
on error goto -1 'réinitialiser le gestionnaire d'erreur
 
'
' ton traitement HTML
'
 
exit function
err_97:
 
'
' ton traitement PLAIN TEXT
'

[Off$ide]

exact, erreur 438

je vais faire comme ça.

merci pour ton aide.

JOYEUX NOEL !!!!!!!!!!!!!!