Bonjour à tous,

Une petite question:

Voila j'ai un script vb, qui permet d'envoyer des mails dont voici le 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
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "test" 
objMessage.From = "ToTo@TaTa.com" 
objMessage.To = "TaTa@ToTo.com" 
objMessage.TextBody = "Couou"
objMessage.AddAttachment "C:\Documents and Settings\bureau\test.txt"
 
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP.fai.fr"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
objMessage.Configuration.Fields.Update
 
'==End remote SMTP server configuration section==
 
objMessage.Send
Je voudrais maintenant savoir si il est possible de laisser les champs du sujet, du from, du to, du smtp, du port et de la piece jointe vides
et qu'il aille rechercher les informations dans un fichier text ou autre format, comme :

Subject:"Nom_du_sujet
From : "adresse expeditrice"
To "Adresse mail destinataire"
attachement :"Chemin de la piece jointe"
SMTP: SMTP.FAI.fr
Port: N° du port
En sachant que le script une fois terminé est converti en ".exe"

Comptant sur vos lumieres ;-)

Cordialement