Discussion :

[Chromatic]

Bonjour a tous

mon application envoi des mails a intreval regulier. J utilise pour cela outlook. Tout fonctionne tres bien sauf qu a chaque envoi de mail, une fenetre de confirmation d envoi s ouvre et l utilisateur doit pousser sur yes pour les envoyer. le but de mon programme etant d automatiser
ces envois, comment eviter de devoir pourrser sur "YES" a chaque envoi. J ai trouve une solution en utilisant le programme clickYes. Mais je trouve pas cela tres elegant car ce programme doit etre constament ouvert. Avez vous des suggestions?

[Chromatic]

Dois p-e changer une option d outlook?

[Tofalu]

N'utilise pas outlook mais CDO. Cf la FAQ http://access.developpez.com/faq

En effet outlook sécurise l'envoi depuis des applications tierces en générant une boite de message

[Maxence HUBICHE]

@Tofalu => Peut-être que Franck parlera de cela aussi dans son tuto.
Tu ne penses pas ?

[Muhad'hib]

Salut,

J'ai une fonction d'envoi de mail par outlook avec une option d'envoi direct. Grosso modo ma fonction contien le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Msg As Object, o As Object
Set o = CreateObject("Outlook.application")
Set Msg = o.Application.createitem(0)
Msg.subject = Sujet
Msg.To = Destinataire
Msg.cc = DestCopie
Msg.Body = Corps
Msg.Attachments.Add Piece_Jointe
Msg.ReadReceiptRequested = True
Msg.display
If Envoi = True Then Msg.Send

EN espérant t'avoir aidé, A+

[Chromatic]

J ai utilise la meme methode que toi Muhad'hib. Le probleme est que Outlook
demande une confirmation. Mon application etant autonome, l utilisateur n a pas a confirmer.

En effet outlook sécurise l'envoi depuis des applications tierces en générant une boite de message

Y a t il pas moyen de passer a travers?

Qu-est ce que CDO? Est ce un programme? Tout le monde la?

[cafeine]

Hello,

Qu'est-ce que CDO ?

=> le reflexe FAQ : http://access.developpez.com/faq/?rechercher=CDO

NB : il faut sans doute ajouter la référence Microsoft CDO

[Chromatic]

j ai un probleme de compilation

Code :

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

Dim Stm  As ADODB.Stream

Quelle reference puis je ajouter?

[Chromatic]

J ai repris le code se trouvant dans lea faq.
J ai ajoute des references necessaires afin d utiliser CDO et j n ai plus d erreurs de compilation
lorsque j execute mon code en mode debug.

J ai une erreur a la ligne

Code :

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

1
2
 
.Send

le message est le suivant

The "SendUsing" configuration value is invalid

Vous savez p-e pourquoi?
Merci