Sending email with vbscript

Good evening, I’m using this script and it seems to work very well, but I’m not receiving any messages?

With CreateObject("CDO.Message")
.From="hamza_0081@commentcamarche.com"
.To="hamza_0081@commentcamarche.com"
.Subject="Test for sending email"
.TextBody="Hello," & Chr(13) & "This is a test " & Chr(13) & "Sincerely"

.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,"Error"
End If
msgbox "Email sent successfully"
On Error GoTo 0
End With

With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza_0081@commentcamarche.com"
.Subject="test for sending email"
.TextBody="Hello," & Chr(13) & "This is a test " & Chr(13) & "Best regards"

.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,"Error"
End If
msgbox "email sent successfully"
On Error GoTo 0
End With

Ok! Thanks for everything, I'm going to try the server!
Good evening, bye :-)

Anyway, the SMTP server for Google is stmp.gmail.com
I have to leave but I'll check this tomorrow

Have a good evening

before I used the smtp183.google.com server

In short, I'm not sure? I think I made a mistake somewhere :-(

To obtain this address, I did
1. launch cmd
2. type nslookup
3. type set q=mx
4. type google.com
and the result is
[[
> set q=mx
> google.com

Non-authoritative answer:
google.com MX preference = 10, mail exchanger = smtp2.google.com
google.com MX preference = 10, mail exchanger = smtp3.google.com
google.com MX preference = 10, mail exchanger = smtp4.google.com
google.com MX preference = 10, mail exchanger = smtp1.google.com

google.com nameserver = ns4.google.com
google.com nameserver = ns1.google.com
google.com nameserver = ns2.google.com
google.com nameserver = ns3.google.com
smtp1.google.com internet address = 209.85.237.25
smtp2.google.com internet address = 64.233.165.25
smtp3.google.com internet address = 64.233.183.25
smtp4.google.com internet address = 72.14.221.25
ns1.google.com internet address = 216.239.32.10
ns2.google.com internet address = 216.239.34.10
ns3.google.com internet address = 216.239.36.10
ns4.google.com internet address = 216.239.38.10
> google.com>>googl.txt
Unrecognized command: google.com>>googl.txt
>

]]

I learned this method on the internet to know the server and then to send emails
via cmd with the command telnet smtp3.google.com 25

today it no longer works on Google.

Are you sure about your SMTP address (Google)?

Otherwise, I’ll check it later

Farid

It still doesn't work, it displays a message "the transport failed to connect to the server"
and another message says that the message was sent successfully?
When I check my inbox, there are no messages?

[[With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="hamza0081@gmail.com"
.Subject="test for sending email"
.TextBody="Hello," & Chr(13) & "This is a test " & Chr(13) & "Best regards"
.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 "mail sent successfully"
On Error GoTo 0
End With

Well, if it works, that's the main thing.
As for the attachment, if you don't need it, delete the corresponding line: this was just an example. It's up to you to adapt it.

If you still need help, just let it be known directly on the forum, don't hesitate... and I will respond if possible...
Farid T

ah ! j'ai oublié de te dire que j'ai créé un fichier c:\piecejointe.pdf

Thank you very much for the script, but there's an error connecting to the server. I slightly modified your script
[
With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="CopieMail@Copiemail.com"
.Subject="test for sending email"
.TextBody="Hello," & Chr(13) & "This is a test " & Chr(13) & "Best regards"

.AddAttachment("c:\attachment.pdf")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "your Exchange server for example if you use Outlook in your inbox: put the IP here"
.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 "email successfully sent"
On Error GoTo 0
End With ]

Can you help me again please?

Here is an example to send an email in VBS. There are several methods, but I prefer this one because you can manage everything (using variables among other things...). And it works very well for me... :)

With CreateObject("CDO.Message")
.From="toto@gmail.com" // here, it doesn't matter whether the email exists or not
.To="tonDestataire@destinataire.com"
.CC="CopieMail@Copiemail.com" // if you want to add someone in copy
.Subject="test for sending email" // subject of the email
.TextBody="Hello," & Chr(13) & "This is a test " & Chr(13) & "Regards" // your text
// and Chr(13) is used to go to the next line
.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") = "your exchange server for example if you are using outlook: enter the 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 "mail sent successfully"
On Error GoTo 0
End With

Hoping this helps you..
Farid T.

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

Hello,

I see you haven't responded. I assume you found the solution... at least I hope so for you :)
If your post is still relevant, let me know and I'll help you right away.
Best regards.

thank you at last someone who understands what I am suffering !!

it's weird that you don't have a response :p

I want to know how to send an email using a VBS script
Thank you in advance, friends
and I am sorry §§