Discussion :

[scenic29]

Bonjour,

J'ai développé une application qui, entre autre, envoie automatiquement des mails qui doivent être signés numériquement.
Développée sous VB5, j'utilise l'objet Outlook 2003 pour créer et envoyer les mails.

Mon problème est que je n'ai pas trouvé comment modifier par mon logiciel l'option :
"Ajouter la signature numérique au message sortant"
de l'onglet Sécurité des options d'Outlook.
pour l'activer avant l'envoi et la désactiver après l'envoi sans avoir à la modifier manuellement dans Outlook.

Quelqu'un a-t-il une solution ?

[Oliv-]

Salut,
il semble que le solution c'est d'utiliser un modèle outlook.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim MyoApp As Outlook.Application
        Dim MyoItem As Outlook.MailItem
        Dim MyAttachments As Outlook.Attachments
 
        Set MyoApp = New Outlook.Application
        Set MyoItem = MyoApp.CreateItem(olMailItem)
 
        Set MyoItem = MyoApp.CreateItemFromTemplate("C:\Outlook\exemple.oft")
 
        MyoItem.Subject = "Encrypt and digitally signed message"
        MyoItem.Body = "Message à mettre ici"
 
        Set MyAttachments = MyoItem.Attachments
        MyAttachments.Add "C:\temp\HED.txt", olByValue, 1
        MyoItem.To = [Recipeint's Email]
 
        MyoItem.Send
 
        Set MyoApp = Nothing
        Set MyoItem = Nothing
        Set MyAttachments = Nothing

Oliv'

[nightcourrier]

Salut,
J'ai le meme probleme, ca fontionner ?

Merci, Francis

[scenic29]

La solution proposée par Catteau13 ne fonctionne pas avec mon Outlook 2003
Le nouveau message créé à partir du modèle n'a pas l'option "Ajouter la signature numérique au message sortant".