sendMail en automatique.

Version imprimable

11/01/2012, 18h03
Domino40

sendMail en automatique.

Bonsoir à tous.

Jutilise la fonction sendMail pour envoyer un fichier excel à mon destinataire.
Excel me demande un truc comme voulez vous autoriser l'envoi du mail.
Bon soldat je clique oui.

Sauf qu'aujourd'hui ma macro est fiable et les envois se font entre midi et 2 et qu'il n'y a personne au bureau.

Donc ma question est :
Y a-t-il une ligne de code qui éviterait de me poser la question et qui enverrai le mail en automatique.
j'ai assayé --> display = false . Ca marche pas.

Si qqun à une astuce
Merci d'avande
Domino40
11/01/2012, 18h23
Daniel.C

Bonjour,

Envoie tes messages en utilisant CDO. Regarde ici :

http://www.developpez.net/forums/d10...ctionne-excel/

Merci,, Mais j'ai une erreur :

Erreur d'exécution '-2147220978(8004020e)
Erreur Automation
Impossible de modifier ou de supprimer un objet qui a été ajouté en utilisant COM+Admin SDK

Pour info voici le code

Je me demande si la syntaxe du smtp est correcte ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub envoiMailAutomatique()
 
   Dim Cdo_Message As Object
   Set Cdo_Message = CreateObject("CDO.Message")
 
    With Cdo_Message
        .To = "monDestinataire@orange.fr"
        .From = "monAdresse@orange.fr"
        .Subject = "Le Sujet"
        .TextBody = "Le Corps du message"
 
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
        'nom du serveur smtp
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
 
        'port du serveur smtp
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
        .Configuration.Fields.Update
 
        .Send
    End With
    Set Cdo_Message = Nothing
End Sub

11/01/2012, 19h10
Daniel.C

Ca m'a l'air ça. A tout hasard, si tu lis l'anglais :

http://www.rondebruin.nl/cdo.htm
14/01/2012, 12h41
Domino40

Mail auto

Merci pour le lien, mais malheureusement j ai pas réussi à trouver mon bonheur.
Je me demanderais si ce n était pas plus simple de trouver une ligne de code du type display=false.
Car mon soucis est juste que l'ordi ne me pose pas la question de validation d'envoi.
Cordialement
Domino40
14/01/2012, 16h59
Daniel.C

Non, je pense qu'il faut bidouiller le registre et je ne sais pas où. Ca dépend de ta version d'Office. Pour Office 2003, regarde :
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
Sinon, ils disent qu'on peut utiliser SendKeys.
15/01/2012, 12h02
pyloupylou

J'avais eu déjà ce genre de problème et l'avais résolu avec un outil clickyes, à l'époque il y avait deux versions: 1 gratuite qui nécessite que la session soit ouverte et une payante un peu plus évoluée.

Cela peut peut-être résoudre ton souci