[RESOLVED] Send an email

[RobertLees]

As a VB6 developer, I have to email my boss a summary of my activity for the week.

So far I am just writing it to a doc file during the week, then doing a copy-paste into her email account on Friday.

I could just have my VB6 app email directly into her account.

How would I do this ?

[RobDog888]

You mean like just use the File menu > Send menu item or something else because its as direct as you can get.

[Fazi]

As a VB6 developer, I have to email my boss a summary of my activity for the week.

So far I am just writing it to a doc file during the week, then doing a copy-paste into her email account on Friday.

I could just have my VB6 app email directly into her account.

How would I do this ?

i use such a feature in my program that sends docs in a flash by email mail to any one. here is the code.

This code uses gmail SMTP to deliver the mails.

Private Sub Form_Load()

'Add the Project Reference Miscrosoft CDO WINDOWS FOR 2000

Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message

With lobj_cdomsg.Configuration
.Fields(cdoSMTPServer) = "smtp.gmail.com"
.Fields(cdoSMTPConnectionTimeout) = 60
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields(cdoSMTPServerPort) = 465
.Fields(cdoSMTPAuthenticate) = True
.Fields(cdoSMTPUseSSL) = True
.Fields(cdoSendUserName) = "[email protected]" ' 
.Fields(cdoSendPassword) = "XXXXXXX="

lobj_cdomsg.To = "[email protected]"
lobj_cdomsg.From = "[email protected]"
lobj_cdomsg.Subject = "TEST MESSAGE "
lobj_cdomsg.TextBody = "body text"
'lobj_cdomsg.AddAttachment ("c:\test.txt")


.Fields.Update
lobj_cdomsg.Send
End With



Set lobj_cdomsg = Nothing
MsgBox "send"
End Sub

PLS convert this code to a nice function

[Siddharth Rout]

My Fav example on sending Mail with a File Attachment....

http://www.example-code.com/vb/vbSimpleSend.asp

[isnoend07]

I was using vbsendmail, but users were having a hard time setting all the requirements, smtp server, pop server, authenication etc.
My software sends rtf invoices, proposals, etc
This is fast and easy:
Save your message to a rtf file then
Or save to a text file
Make a reference to Microsoft windows cdo library

Dim objMessage
Set objMessage = CreateObject("CDO.Message")

With objMessage
.To = "To email"
.Subject = "your Subject"
.From = "From email"
.AddAttachment =  txtAttach 'Textbox holding path to attachment 
.Send
End With

The only drawback is there is no way to determine if the message was sent, it just sends it.

[RobertLees]

Thanks guys.

They all sounded good, but for different reasons they didn't work.

Fazi, I got this

Run-time error

The message could not be sent to the SMTP server. The transport error code was ox80040217. The server response was not available.

koolsid, that method required a 3rd party activeX that had a 30 day trial.

isnoend07, just did nothing. I didn't use the attachment line. It wasn't mandatory was it ?

[isnoend07]

Thanks guys.

They all sounded good, but for different reasons they didn't work.

Fazi, I got this

Run-time error

The message could not be sent to the SMTP server. The transport error code was ox80040217. The server response was not available.

koolsid, that method required a 3rd party activeX that had a 30 day trial.

isnoend07, just did nothing. I didn't use the attachment line. It wasn't mandatory was it ?

The attachment isn't necessary. Did you check your email. it's very fast

[westconn1]

to use cdo.message you must either, to use the code by isnoend, have a default smtp server set up by your default email client, or using the code posted by fazi, have a valid gmail account, and have your code in the configuration match the account settings

[RobertLees]

I tried faji's method - I do have a gmail account - but I got this..

The message could not be sent to the SMTP server. The server response was not available.

[westconn1]

post the code you are using, an indicate which line you get error

[RobertLees]

The code I used was......

With lobj_cdomsg.Configuration
.Fields(cdoSMTPServer) = "smtp.gmail.com"
.Fields(cdoSMTPConnectionTimeout) = 60
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields(cdoSMTPServerPort) = 465
.Fields(cdoSMTPAuthenticate) = True
.Fields(cdoSMTPUseSSL) = True
.Fields(cdoSendUserName) = "[email protected]" '
.Fields(cdoSendPassword) = strPassword & "="

lobj_cdomsg.To = "[email protected]"
lobj_cdomsg.From = "[email protected]"
lobj_cdomsg.Subject = strSubject
lobj_cdomsg.TextBody = strBody
lobj_cdomsg.AddAttachment strAttachmentLocation

.Fields.Update
lobj_cdomsg.Send
End With

At the Send command I got this....
The message could not be sent to the SMTP server. The transport error code was ox80040217. The server response was not available.

[isnoend07]

The code I used was......

With lobj_cdomsg.Configuration
.Fields(cdoSMTPServer) = "smtp.gmail.com"
.Fields(cdoSMTPConnectionTimeout) = 60
.Fields(cdoSendUsingMethod) = cdoSendUsingPort
.Fields(cdoSMTPServerPort) = 465
.Fields(cdoSMTPAuthenticate) = True
.Fields(cdoSMTPUseSSL) = True
.Fields(cdoSendUserName) = "[email protected]" '
.Fields(cdoSendPassword) = strPassword & "="

lobj_cdomsg.To = "[email protected]"
lobj_cdomsg.From = "[email protected]"
lobj_cdomsg.Subject = strSubject
lobj_cdomsg.TextBody = strBody
lobj_cdomsg.AddAttachment strAttachmentLocation

.Fields.Update
lobj_cdomsg.Send
End With

At the Send command I got this....
The message could not be sent to the SMTP server. The transport error code was ox80040217. The server response was not available.

I had that problem when i was trying to get the smtp server from google to work with vbsendmail. Try using your isp's smtp server

[westconn1]

why the "=" at the end of the password??

i don't have my code here, but i have certainly sent with gmail before, and i know there is code examples on this forum, a search on cdo.message should bring up a working example

[RobertLees]

The = was in Fazi's example. I removed it and BINGO.

That's guys. On the my next problem

[Fazi]

oh that = is a charactor in my gmail password
I should have deleted that. sorry sorry