Ver originales (Francés)

Enviar correo electrónico con vbscript

hamza_0081 Mensajes publicados 260 Estado Miembro -  
 ArnaudPia -
Bonjour,
je veux savoir comment envoyer un mail par un script vbs
Configuration : Windows XP Internet Explorer 6.0

19 respuestas

Respuesta 1 / 19
zzzer Mensajes publicados 938 Estado Miembro 181
 
¿Por favor?
Gracias de antemano?

http://www.commentcamarche.net/ccmguide/ccmcharte respeto al prójimo.php3#politesse

--
¡No olvides marcar la discusión como resuelta tan pronto como sea el caso! -> En la parte superior de la página, Estado: Resuelto
Ten cuidado también de respetar bien la 6ª regla de la carta: 
Escribir los mensajes en un lenguaje claro sin abreviaturas, estilo telegráfico o modo SMS
8
ArnaudPia
 
Y la opción de BAC Francés no es una opción. Estoy cansado de tener que transcribir todo para entender la pregunta.
0
Respuesta 2 / 19
fafa76
 
Aquí hay un ejemplo para enviar un correo electrónico en VBS. Hay varios métodos, pero prefiero este porque se puede gestionar todo (a través de variables, entre otras cosas...). Y funciona muy bien en mi caso... :)

With CreateObject("CDO.Message")
.From="toto@gmail.com" // aquí no importa si el correo existe o no
.To="tonDestataire@destinataire.com"
.CC="CopieMail@Copiemail.com" // si deseas poner a alguien en copia
.Subject="prueba para enviar correo" // asunto del correo
.TextBody="Hola," & Chr(13) & "Este es un prueba " & Chr(13) & "Saludos cordiales" // tu texto
// y el chr(13) sirve para ir a la nueva línea
.AddAttachment("c:\piezaadjunta.pdf")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tu servidor exchange por ejemplo si usas outlook en tu bandeja: pon la IP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Error"
End If
msgbox "correo enviado exitosamente"
On Error GoTo 0
End With

Espero que esto te ayude..
Farid T.
5
ftouaimia Mensajes publicados 3 Fecha de registro   Estado Miembro
 
fafa76 = ftouaimia
0
Maxime
 
Muchas gracias, me funcionó.
0
petit_gg
 
¡Genial este código! Funciona a la perfección desde el primer intento. Gracias por compartirlo.
0
IMAND Mensajes publicados 1 Fecha de registro   Estado Miembro Última intervención  
 
Cvd podemos enviar correos de cualquier cuenta de correo, incluso si esta última no es nuestra.
0
Respuesta 3 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Merci beaucoup pour le script, mais il y a une erreur de connexion au serveur. J'ai légèrement modifié votre script.
[
With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="CopieMail@Copiemail.com"
.Subject="test pour envoi de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"

.AddAttachment("c:\piecejointe.pdf")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ton serveur exchange par exemple si tu utilises outlook dans ta boîte : mets-y l'IP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With ]

Est-ce que tu peux encore m'aider, s'il te plaît ?
2
Respuesta 4 / 19
fafa76
 
Hola,

Veo que no tienes respuesta. Supongo que has encontrado la solución... al menos espero que sí :)
Si tu publicación sigue siendo actual, házmelo saber y te ayudaré de inmediato.
Atentamente.
1
Respuesta 5 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Je veux savoir comment envoyer un mail par un script VBS
Merci d'avance les amis
Et je suis désolé §§
0
Respuesta 6 / 19
toto
 
Es raro que no tengas respuesta :p
0
Respuesta 7 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
¡Gracias! Al fin alguien que entiende lo que sufro.
0
Respuesta 8 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Bonjour, merci pour votre aide. Je tiens à vous informer que je n'ai pas trouvé ce que je cherche.
0
Respuesta 9 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
¡Ah! Olvidé decirte que creé un archivo c:\piezaadjunta.pdf
0
Respuesta 10 / 19
fafa76
 
Bueno, si funciona, eso es lo principal.
En cuanto al archivo adjunto, si no lo necesitas, elimina la línea correspondiente: esto era solo un ejemplo. Depende de ti adaptarlo.

Si aún necesitas ayuda, házmelo saber directamente en el foro, no pidas... y responderé si es posible...
Farid T
0
Respuesta 11 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
No funciona todavía, me muestra un mensaje "el transporte no pudo conectarse al servidor"
y otro mensaje dice que el mensaje ha sido enviado correctamente?
Al verificar mi bandeja no hay ningún mensaje?

[[Con CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="hamza0081@gmail.com"
.Subject="prueba para el envío de correo"
.TextBody="Hola," & Chr(13) & "Esto es una prueba " & Chr(13) & "Atentamente"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "stmp3.google.com"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <> 0 Then
MsgBox Err.Description,16,"Error"
End If
MsgBox "correo enviado correctamente"
On Error GoTo 0
End With
0
THEMINECRAFT951
 
smtp.gmail.com no stmp.gmail.com
0
Respuesta 12 / 19
ftouaimia Mensajes publicados 3 Fecha de registro   Estado Miembro
 
¿Estás seguro de tu dirección SMTP (Google)?

Si no, lo verificaré más tarde.

Farid
0
Respuesta 13 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Para obtener esta dirección hice
1.lanzar cmd
2.escribir nslookup
3.escribir set q=mx
4.escribir google.com
y el resultado es
[[
> set q=mx
> google.com

Respuesta no autoritativa:
google.com preferencia MX = 10, intercambiador de correo = smtp2.google.com
google.com preferencia MX = 10, intercambiador de correo = smtp3.google.com
google.com preferencia MX = 10, intercambiador de correo = smtp4.google.com
google.com preferencia MX = 10, intercambiador de correo = smtp1.google.com

google.com servidor de nombres = ns4.google.com
google.com servidor de nombres = ns1.google.com
google.com servidor de nombres = ns2.google.com
google.com servidor de nombres = ns3.google.com
smtp1.google.com dirección de internet = 209.85.237.25
smtp2.google.com dirección de internet = 64.233.165.25
smtp3.google.com dirección de internet = 64.233.183.25
smtp4.google.com dirección de internet = 72.14.221.25
ns1.google.com dirección de internet = 216.239.32.10
ns2.google.com dirección de internet = 216.239.34.10
ns3.google.com dirección de internet = 216.239.36.10
ns4.google.com dirección de internet = 216.239.38.10
> google.com>>googl.txt
Comando no reconocido: google.com>>googl.txt
>

]]

Lo descubrí así en la red, utilizo este método para conocer el servidor y luego para enviar correos electrónicos
a través del cmd con el comando telnet smtp3.google.com 25

hoy en día ya no funciona en google.
0
Respuesta 14 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
En bref, je ne suis pas sûr ? Je crois que j'ai une erreur quelque part :-(
0
Respuesta 15 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Antes usaba el servidor smtp183.google.com.
0
Respuesta 16 / 19
ftouaimia Mensajes publicados 3 Fecha de registro   Estado Miembro
 
De todas formas, el servidor SMTP para Google es stmp.gmail.com
Tengo que irme, pero lo miraré mañana

Buenas noches
0
Respuesta 17 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
¡Está bien! ¡Gracias por todo, intentaré el servidor!
¡Buenas noches, adiós :-)
0
Respuesta 18 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
```html Con CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza_0081@commentcamarche.com"
.Subject="test pour envoie de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"

.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "raoul.commentcamarche.org"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With ```
0
Respuesta 19 / 19
hamza_0081 Mensajes publicados 260 Estado Miembro 60
 
Bonsoir, j'utilise ce script, ça a l'air de très bien fonctionner, mais je ne reçois aucun message ?

Avec CreateObject("CDO.Message")
.From="hamza_0081@commentcamarche.com"
.To="hamza_0081@commentcamarche.com"
.Subject="test pour envoi de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"

.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "raoul.commentcamarche.org"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <> 0 Then
MsgBox Err.Description,16,"Erreur"
End If
MsgBox "mail bien envoyé"
On Error GoTo 0
End With
0