Envoi de mails en vb + variables
Bonjour à tous,
Une petite question:
Voila j'ai un script vb, qui permet d'envoyer des mails dont voici le code:
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
| 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 :
Citation:
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
