Zlub
Messages postés809Date d'inscriptionmercredi 11 octobre 2000StatutMembreDernière intervention29 septembre 2010
-
22 juil. 2005 à 01:41
FRatvks
Messages postés52Date d'inscriptionmercredi 12 mars 2003StatutMembreDernière intervention 2 octobre 2009
-
12 mars 2010 à 19:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 7 déc. 2005 à 15:02
bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 7 déc. 2005 à 15:00
bien sur, tu enregistre les identifiants dans un tableau de variable et tu envoi le message à l'aide d'une boucle for...
cs_paipes
Messages postés1Date d'inscriptionjeudi 10 novembre 2005StatutMembreDernière intervention10 novembre 2005 10 nov. 2005 à 12:05
bonjour,
je voudrais utiliser ce script avec mon serveur SMTP local et avec mes authentifiant vers une liste des correspondant, es ce possible de rajouter des Inputbox pour ces options !!!!!!
(je suis un débutant en scripting)
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 9 nov. 2005 à 14:26
Bien sur que tu peux envoyer des données inputbox et meme tout autre type de données textes...
Pour cela tu enregistre le texte ou la lecture d'un fichier ou autre dans une variable et ensuite ça marche aussi simplement que avec les msgbox...
hugo_lskieur
Messages postés5Date d'inscriptionjeudi 22 septembre 2005StatutMembreDernière intervention 6 novembre 2005 6 nov. 2005 à 16:02
je donne un 8/10 a cette source car elle marche mais l'inconvenient est quil faut posseder un compte yahoo mail.
Et j'aimerai savoir si l'on peut envoyer des données rentrer dans un inputbox par exemple:
a=inputbox("quel age as tu?")
et que sa nous envoyer ce quelle a mit comme reponse?????
merci d'avance
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 17 août 2005 à 16:39
Il me semble que l'envoi de mail via serveur smtp ou autre ne marche que sur le serveur de son fournisseur internet, car, je suis chez free et c'est le seul qui marche avec moi...
En plus, je préise que les adresse d'expediteur doivent etre semblable a de vrais adresse, pour les ptits rigolos qui s'en serven comme mail bomber...
MaxSoldier
Messages postés289Date d'inscriptiondimanche 10 août 2003StatutMembreDernière intervention28 février 20092 24 juil. 2005 à 01:26
Même si c'est sûr que ce n'est pas super top sur le principe, le code n'est pas mauvais. Je mets 8/10
keaoner
Messages postés3Date d'inscriptiondimanche 23 janvier 2005StatutMembreDernière intervention22 juillet 2005 22 juil. 2005 à 10:36
ca dépend vous que les fournisseur d'accès verifie IP du poste qui envois le mail
cela peut etre une solution pour ceux qui veulent envoyer un mail sans cette limitation.
oui cela fonctionne je l'ai testé
tekila_bandita
Messages postés248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 22 juil. 2005 à 08:38
C'est possible d'envoyé des mails via le smtp yahoo?
sinon il me semble qu'un vbs du meme type à déja été déposé...
7/10
Zlub
Messages postés809Date d'inscriptionmercredi 11 octobre 2000StatutMembreDernière intervention29 septembre 20108 22 juil. 2005 à 01:41
hum... faire bosser les serveurs yahoo pour envoyer ces email, c'est pas top ! Surtout dire de créer un compte dans cette optique c'est pas tres bô ... mais bon
12 mars 2010 à 19:13
j'ai repris le tout et mis dans un module et tu masse aussi les Pieces jointes.....c'est pas beau la vie ?
Public Sub Mail(sender As String, dest As String, sujet As String, body As String, Attached As String, smtp_server As String, smtp_port As String)
'cette procedure permet d'envoyer un email
Set objEMail = CreateObject("CDO.Message")
objEMail.From = sender
objEMail.To = dest
objEMail.Subject = subj
objEMail.Textbody = message
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEMail.Subject = sujet
objEMail.Textbody = body
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
smtp_server
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port
If Attached <> "" Then
objEMail.AddAttachment (Attached)
End If
objEMail.Configuration.Fields.Update
objEMail.Send
End Sub
28 févr. 2010 à 21:35
est-ce qu'il y aurait moyen de modifier le code pour qu'il cherche un fichier ou plusieurs sur mon pc et que ça les envois par mail.
merci.
1 déc. 2009 à 00:36
__________________________________
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "expediteur@expediteur.fr"
objEmail.To = "destinataire@destinataire.fr"
objEmail.Subject = "Sujet: ce que vous voulez"
objEmail.Textbody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Subject = "Sujet: ce que vous voulez"
objEmail.Textbody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.free.fr"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
7 déc. 2005 à 15:02
7 déc. 2005 à 15:00
10 nov. 2005 à 12:05
je voudrais utiliser ce script avec mon serveur SMTP local et avec mes authentifiant vers une liste des correspondant, es ce possible de rajouter des Inputbox pour ces options !!!!!!
(je suis un débutant en scripting)
9 nov. 2005 à 14:26
Pour cela tu enregistre le texte ou la lecture d'un fichier ou autre dans une variable et ensuite ça marche aussi simplement que avec les msgbox...
6 nov. 2005 à 16:02
Et j'aimerai savoir si l'on peut envoyer des données rentrer dans un inputbox par exemple:
a=inputbox("quel age as tu?")
et que sa nous envoyer ce quelle a mit comme reponse?????
merci d'avance
17 août 2005 à 16:39
En plus, je préise que les adresse d'expediteur doivent etre semblable a de vrais adresse, pour les ptits rigolos qui s'en serven comme mail bomber...
24 juil. 2005 à 01:26
22 juil. 2005 à 10:36
cela peut etre une solution pour ceux qui veulent envoyer un mail sans cette limitation.
oui cela fonctionne je l'ai testé
22 juil. 2005 à 08:38
sinon il me semble qu'un vbs du meme type à déja été déposé...
7/10
22 juil. 2005 à 01:41