sendMail en automatique.

[Domino40]

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

[Daniel.C]

Bonjour,

Envoie tes messages en utilisant CDO. Regarde ici :

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

[Domino40]

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

[Daniel.C]

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

http://www.rondebruin.nl/cdo.htm

[Domino40]

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

[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.

[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