cdc_sickle
asked on
Email Results...
How can i email the text of a bunch of txts on two forms to a email address when they click on a button?
ASKER
the_ray_family@msn.com
ASKER
the_ray_family@msn.com
ASKER
You havent sent the email yet so im gonig to leave it open for somone else unless you send the email
ASKER
Will someone please answer my question? I will raise points if i have to!
By email, do you mean an internal corporate email system like Microsoft Exchange or over the Internet?
ASKER
I dont care, as long as the information gets to my email address!
Option Explicit
Private Sub Command1_Click()
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipAddress = "the_ray_family@msn.com"
.MsgSubject = "Sending textbox text via email."
.MsgNoteText = "Textbox1=" & Text1.Text & vbCrLf
.MsgNoteText = .MsgNoteText & "Textbox2=" & Text2.Text & vbCrLf & vbCrLf
.MsgNoteText = .MsgNoteText & "If you're using a MAPI compliant mail system like Outlook, Outlook express, Exchange, the InBox, etc., you can send email via the internet the same way you would send an internal message. The MAPI controls can be quite handy."
.Send False
End With
MAPISession1.SignOff
End Sub
Private Sub Form_Load()
Text1.Text = "This is the text from textbox 1."
Text2.Text = "This is the text from textbox 2."
End Sub
Private Sub Command1_Click()
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipAddress = "the_ray_family@msn.com"
.MsgSubject = "Sending textbox text via email."
.MsgNoteText = "Textbox1=" & Text1.Text & vbCrLf
.MsgNoteText = .MsgNoteText & "Textbox2=" & Text2.Text & vbCrLf & vbCrLf
.MsgNoteText = .MsgNoteText & "If you're using a MAPI compliant mail system like Outlook, Outlook express, Exchange, the InBox, etc., you can send email via the internet the same way you would send an internal message. The MAPI controls can be quite handy."
.Send False
End With
MAPISession1.SignOff
End Sub
Private Sub Form_Load()
Text1.Text = "This is the text from textbox 1."
Text2.Text = "This is the text from textbox 2."
End Sub
ASKER
i get an error at the first part
MAPISession1
anser again and if it worx ill raise points and give you a a
MAPISession1
anser again and if it worx ill raise points and give you a a
Hi cdc_sickle
The above answer by imorris will work. The reason why its not working on your system is that you don't seem to have the MAPI controls on your form. To do this, go to the PROJECTS menu, select COMPONENTS and scroll down the list till you get to MICROSOFT MAPI CONTROL. Tick this and go back to your form. In your TOOLBOX you should have two new controls, MapiSession and MapiMessages. Add both these controls to your form and play around with the above code again. It should work.
If all fails, write back again and I will step you through it with my own sample code, for MAPI control and OUTLOOK referencing.
Cheers...
Hookie.....
The above answer by imorris will work. The reason why its not working on your system is that you don't seem to have the MAPI controls on your form. To do this, go to the PROJECTS menu, select COMPONENTS and scroll down the list till you get to MICROSOFT MAPI CONTROL. Tick this and go back to your form. In your TOOLBOX you should have two new controls, MapiSession and MapiMessages. Add both these controls to your form and play around with the above code again. It should work.
If all fails, write back again and I will step you through it with my own sample code, for MAPI control and OUTLOOK referencing.
Cheers...
Hookie.....
ASKER
Is it necesary to go through all the inbox settings and go into inbox to actually send the mail? Also, theres an error at .Send False
ASKER
Everybody using this program will be using aol
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
cdc_sickle,
In the project I sent you, you can delete the two text boxes where you enter your name and your e-mail address (of the recipient who is you) and put them in the code.
In the project I sent you, you can delete the two text boxes where you enter your name and your e-mail address (of the recipient who is you) and put them in the code.
ASKER
Ok, it worx, but when i put it in another program it gives me this error:
Run-time error 140020
Ivalid operation at current state
Winsock1.LocalPort = 0
Run-time error 140020
Ivalid operation at current state
Winsock1.LocalPort = 0
Do you have another Winsock control in the other project?
If you need help with the code, I can send you a complete project if you comment me your e-mail address.
Regards