Discussion :

[nomade333]

Bonsoir,
J'ai une application Access avec laquelle je veux envoyer des états via Outlook 2003.
L'opération fonctionne très bien sauf que lors de l'envoi Outlook me demande de confirmer l'envoi.
méssage Outlook
"Un programme tente d'envoyer automatiquement du courrier électronique en votre nom.
L'autorisez vous à poursuivre?"
Et je suis obligé de répondre oui pour l'envoi.
Ma question
Est il possible de supprimer ce méssage et d'envoyer ces états en automatique?
Merci par avance.

[SevenSoftware]

Bonjour,

J'ai le même problème que vous avec OL 2003.
Par contre OL 2007 a un mécanisme plus intelligent:
Si un anti-virus est présent et à jour, il n'affiche pas la boîte de
dialogue, même si .SentOnBehalfOfName est utilisé.

Il est fort possible qu'on ne puisse contourner cette sécurité de OL2003,
mais si quelqu'un a une idée, elle est la bienvenue !

Merci.

[Heureux-oli]

Il est fort possible qu'on ne puisse contourner cette sécurité de OL2003,
mais si quelqu'un a une idée, elle est la bienvenue !

Salut,

Puor 2003, il existe ClikYes qui est un petit soft qui ne sert qu'à ça.

Par contre, si Outlook est ouvert, on peut utiliser l'instance existante et le message n'apparaît pas, mais il faut coder.

[SevenSoftware]

Bonjour,

J'ai téléchargé la version eval de ClickYes Pro 2010.
Ca marche pour Outlook 2003.

Merci du tuyau !

Patrick

EDIT: As-tu le code en question qui utilise l'instance ouverte de Outlook?
Merci.

[Heureux-oli]

Salut,

Le code donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnvoiDeMail()
Dim Oapp As Outlook.Application
Dim oMail As Outlook.MailItem
 
Set Oapp = Outlook.Application
Set oMail = Oapp.CreateItem(olMailItem)
 
oMail.To = ""
oMail.Subject = ""
 
oMail.Send
 
End Sub

Il faut certainement le corriger et l'adapter.

[SevenSoftware]

Sauf que dans mon code, j'utilise olMail.SentOnBehalfOfName="toto@titi.fr"
C'est là que le bât blesse.
Dès qu'on envoie au nom de quelqu'un d'autre (avec OL2003), la boîte de dialogue apparaît, même si les droits sont OK au niveau d'Exchange.

[Heureux-oli]

Salut,


Je viens de faire un test avec ce code :

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
Sub TestEnvoiMessage()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
 
Set oApp = Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
 
With oMail
    .To = "---"
    .Subject = "Test d'envoi"
    .Body = "Corps du message"
    .SentOnBehalfOfName = "---"
End With
 
oMail.Send
 
Set oMail = Nothing
Set oApp = Nothing
 
 
End Sub

Et je n'ai pas le message.

Windows XP - Office 2003 - Exchange 2003

j'ai fait le test parce que je n'avais jamais tenté en envoyant au nom de quelqu'un d'autre.