Enviar correo electrónico con vbscript

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.

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 ?

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.

Je veux savoir comment envoyer un mail par un script VBS
Merci d'avance les amis
Et je suis désolé §§

Es raro que no tengas respuesta :p

¡Gracias! Al fin alguien que entiende lo que sufro.

Bonjour, merci pour votre aide. Je tiens à vous informer que je n'ai pas trouvé ce que je cherche.

¡Ah! Olvidé decirte que creé un archivo c:\piezaadjunta.pdf

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

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

¿Estás seguro de tu dirección SMTP (Google)?

Si no, lo verificaré más tarde.

Farid

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.

En bref, je ne suis pas sûr ? Je crois que j'ai une erreur quelque part :-(

Antes usaba el servidor smtp183.google.com.

De todas formas, el servidor SMTP para Google es stmp.gmail.com
Tengo que irme, pero lo miraré mañana

Buenas noches

¡Está bien! ¡Gracias por todo, intentaré el servidor!
¡Buenas noches, adiós :-)

```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 ```

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