Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Email CDONTS does not work

lionblionb Member Posts: 1,688 ✭✭
I used code like that thousands times years ago and it did work perfectly. For some reason it did not work now. Does somebody now why it it did not work
Code:
[Code]
Dim email As New CDONTS.NewMail
With email
.From = "test@test.com" '[blue]I do have real email address in real code[/blue] :-D
.To = "test@test.com"
.Subject = "Test"
.BodyFormat = 1
.Send
End With
Set eMail - nothing
[/code]
No Errors or messages. [b]It simply does not send email. In other words, it does nothing![/b]
Tried to use CDO.Message got the same problem
[code]
With eM
Dim eM As New CDO.Message
.To = "test@test.com"
.From = "test@test.com"
.Subject = "Test"
.TextBody = "Test"
.Send
End With
[/code]

Sign In or Register to comment.