Printable View
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 ?
You mean like just use the File menu > Send menu item or something else because its as direct as you can get.
i use such a feature in my program that sends docs in a flash by email mail to any one. here is the code.Quote:
Originally Posted by RobertLees
This code uses gmail SMTP to deliver the mails.
PLS convert this code to a nice function http://img384.imageshack.us/img384/4303/tiphatth2.gifCode: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
My Fav example on sending Mail with a File Attachment....
http://www.example-code.com/vb/vbSimpleSend.asp
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
The only drawback is there is no way to determine if the message was sent, it just sends it.Code: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
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 fastQuote:
Originally Posted by RobertLees
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
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.
post the code you are using, an indicate which line you get error
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 serverQuote:
Originally Posted by RobertLees
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
The = was in Fazi's example. I removed it and BINGO.
That's guys. On the my next problem
oh that = is a charactor in my gmail password :D
I should have deleted that. sorry sorry :wave: