hi, i really need help here, im gonna put the example, i have an specific sheet with several colums, those colums are a database of info reviewed, so every time i save he info a new line is inserted and so on and so on. at the en of the day I need to send all the data base via gmail, but i dont know how to sent that o do that. heeelp please.. as sorry for the bad english is not my native language
Have a look at module 2 of the linked workbook in the link below to
Ron de Bruin's site
About a 1/3 of the way down the page
If my solution worked (or not) please let me know. If your question is answered then please remember to mark it solved
Computers are like air conditioners. They work fine until you start opening windows. ~Author Unknown
ok was able to send an an email with a textbody, but, is there any way to attached one sheet of the info to the email?. i mean instead of the body, just the into inside the sheet( the sheet is a data base). Aaaaand thanks for you help
Sub send_email_via_gmail()
Dim myMail As CDO.Message
Set myMail = New CDO.Message
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pwd"
myMail.Configuration.Fields.Update
With myMail
.Subject = TEST
.From = "[email protected]"
.To = "[email protected]"
.CC = ""
.BCC = ""
.TextBody = "text"
End With
On Error Resume Next
myMail.Send
'MsgBox ("Mail has been sent")
Set myMail = Nothing
End Sub
this is what i got in the email part, is there any way to attached the info inside the sheet?
See the link to a previous thread (I haven't got Gmail with me to test any code) for an example of how to attach a sheet (although the code could do with losing the Select's) and read post #11 as well.
Old thread
...and when posting code please use code tags as per the forum rules.
3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button). The result will appear like this in the post window:
... and appear like this when posted:
Please Login or Register to view this content.
copy to clipboard
your code here ...
and here ...
and here
You can also type the code tags in manually if you prefer. For more information about these and other tags, click here.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks