Discussion :

[alsimbad]

Bonjour j'ai une question. il y a des tas de réponse par la recherche sur le forum, mais je ne trouve pas vraiment LA réponse.
j'ai un fichier d'une page que je dois renvoyer chaque mois. j'ai fais une petite appli qui contiens le modele, je fais une copie de la feuille, j'y rentre 4 données, save as et le tour est joué, j'en sort ce fameux fichier ( janvier.xls; février.xls ....) .
puis j'ouvre ma messagerie wanadoo, je fais un message au destinataire, puis je met le fichier du mois en piece jointe. et tout marche parfaitement.
mais, voila que j'aimerai bien qu'en final ce mail soit fait automatiquent. le destinataire est tjr le même. le hic, c'est que je ne travaille pas avec outlock vu qu'il n'est pas dans l'édition famille 2007 de la suite office.
ma question est :
es ce que c'est possible ?
si oui. qu'es ce qui m'aidera le mieux ?
merci d'avance

[AlainTech]

En faisant une petite recherche avec CDO comme mot clé, tu devrais trouver ton bonheur.

[alsimbad]

merci alain
effectivement, j'ai trouvé des choses qui ressemblent a ce dont j'ai besoin. j'ai essayé d'adapter parce que ce n'est pas de mon niveau, et je pige que couic a "comment ça marche", mais j'en ai fais ce bout de 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
22
23
24
25
26
27
28
29
 
Sub testmail()
chemin = ThisWorkbook.Path
nom = "piece jointe.xls"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "<a href="mailto:alsimbad@yahoo.fr">alsimbad@yahoo.fr</a>"
objMessage.To = "<a href="mailto:alsimbad@hotmail.com">alsimbad@hotmail.com</a>"
objMessage.TextBody = "This is some sample message text."
 
'== C'est là qu'on précise la piece jointe...
' elle doit etre fermée
objMessage.AddAttachment chemin & "\" & nom
 
objMessage.Configuration.Fields.Item _
 ("<a href="http://schemas.microsoft.com/cdo/configuration/sendusing" target="_blank">http://schemas.microsoft.com/cdo/con...tion/sendusing</a>") = 2
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
 ("<a href="http://schemas.microsoft.com/cdo/configuration/smtpserver" target="_blank">http://schemas.microsoft.com/cdo/con...ion/smtpserver</a>") = "smtp.myserver.com"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("<a href="http://schemas.microsoft.com/cdo/configuration/smtpserverport" target="_blank">http://schemas.microsoft.com/cdo/con...smtpserverport</a>") = 25
 
objMessage.Configuration.Fields.Update
 
objMessage.Send
End Sub

et evidement ça marche pas. ça s'arrete a la derniere ligne avec le message d'erreur
le transport a échoué dans sa connexion au serveur
et donc je suis coincé, j'ai rien trouvé de plus adapté. a priori, c'est exactement ce qu'il me faut. je crée mon fichier, je l'enregistre au meme emplacement que le fichier mére, je le ferme, et je l'envoie.
je précise :
la messagerie utilisé sera wanadoo, là j'ai pris mes e-mail pour les test
la connexion est permanente par la free box
je trouve curieux de ne pas avoir a entrer les mots de passe
le coup de main n'est pas de trop, moi, je peux pas aller plus loin
merci

[alsimbad]

apres mure reflexion, je pense que le blocage vient de là
'Name or IP of Remote SMTP Server

Code :

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

1
2
3
4
5
6
objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "smtp.myserver.com"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25

question
comment obtenir le nom du serveur de sa messagerie ?
et idem pour le n° de port

[AlainTech]

je trouve curieux de ne pas avoir a entrer les mots de passe

Peu de serveurs SMTP demandent une authentification.

Attention, le serveur SMTP doit toujours être celui du FAI (de ta connexion).
Il peut donc être nécessaire de modifier en fonction du lieu d'envoi.

[alsimbad]

Attention, le serveur SMTP doit toujours être celui du FAI (de ta connexion).

excuse moi, mais a partir de là, c'est du chinois pour moi.
je programme uniquement sur vba excel, le reste m'est completement inconnu. comment je fais pour rechercher le le serveur smtp qui me concerne. et c'est quoi le FAI ?

[AlainTech]

FAI = Fournisseur d'Accès Internet.
Autrement dit, il faut utiliser le serveur SMTP du fournisseur de la connexion à Internet.

[alsimbad]

merci Alain tech