Emailing from Access

[Guest_imported]

What I want to do is the following:

I have a form with a bunch of fields however, there are two important ones which I will discuss in regard to my question. One of the fields is called 'assignedto' and the other is named 'subject'. The 'assignedto' field is a combobox where the user has the option of selecting, among other names, 'RYAN'. When selected, the form automatically tabs over to the next field 'subject' and gives the user the option of entering something...

What I want Access to do is automatically send an email to "***" when 'RYAN' is selected from the assignedto field. In this email I want Access to copy the contents of what was writen in the 'subject' field.

Is this possible? If so how?

Thanks,
Ryan.

 

[tomschafer]

Its easily possible. Just to clarify though do you want the e-mail to be sent to whomever is selected in the assignedto field or only when it is RYAN. And do you want it to automatically send the e-mail after the subject field is updated or do you want a command button that can be clicked to send the e-mail.
The following code is using the assumptions I made about your post.
1. E-Mail whomever is selected in the assignedto box.
2. Automatically send the e-mail after the subject field is updated.

Private Sub Subject_AfterUpdate()

Dim strTo As String
Dim strSubject As String

strTo = Forms("[Enter Your Form Name]&quot!assignedto
strSubject = Forms("[Enter Your Form Name]&quot!subject

DoCmd.SendObject acSendNoObject, , , strTo, , , "[Enter The Subject Of The E-Mail]", strSubject, False

End Sub

Make sure you fill in your form name, and the subject of the e-mail if you want one- if not delete out the subject I put in there.
Let me know how it goes. Good luck!

 

[littleman]

Thanks a lot. I appreaciate that.

There's 2 issues though.

a) I only want the email to send if RYAN is selected.

b) I don't see a place within the code that you created where I can write the email address that you are sending the mail to?

Thanks again,
Ryan.

 

[tomschafer]

This is where the E-Mail address is generated from...
strTo = Forms("[Enter Your Form Name]&quot!assignedto
I was assuming that "RYAN" was an example and that you would either use an SMTP address or an address that your MAPI service could source to an SMTP address.
To code so that it is only sent if RYAN is selected...

Private Sub Subject_AfterUpdate()

Dim strTo As String
Dim strSubject As String

strTo = Forms("[Enter Your Form Name]&quot!assignedto
strSubject = Forms("[Enter Your Form Name]&quot!subject

If strTo = "RYAN" Then
DoCmd.SendObject acSendNoObject, , , strTo, , , "[Enter The Subject Of The E-Mail]", strSubject, False
End If

End Sub

 

[Guest_imported]

I tried that but the email still wouldn't send...here's the code that I'm using...what I am doing wrong?

Private Sub assignedto_AfterUpdate()
'sends an email to 8rd2@qlink.queensu.ca when RYAN is selected from the assingnedto field
Dim strTo As String
Dim strSubject As Subject

strTo = Forms("8rd2@qlink.queensu.ca&quot!AssignedTo
strSubject = Forms("8rd2@qlink.queensu.ca&quot!Subject

If Me!AssignedTo = RYAN Then
DoCmd.SendObject acSendNoObject, , , strTo, , , "You Have A New Task", strSubject, False
End If

End Sub

 

[tomschafer]

You had a couple of synax errors..

Private Sub assignedto_AfterUpdate()
'sends an email to 8rd2@qlink.queensu.ca when RYAN is selected from the assingnedto field
Dim strTo As String
Dim strSubject As Subject

strTo = "8rd2@qlink.queensu.ca"
strSubject = Forms("[Your Form Name]&quot!Subject

If Me!AssignedTo = "RYAN" Then
DoCmd.SendObject acSendNoObject, , , strTo, , , "You Have A New Task", strSubject, False
End If

End Sub

This is assuming that the actual name of your text boxes are Subject and AssignedTo.

 

[hrg]

I have just set up a database which when entering an e-mail address into the text field wanted to send. The way it works is you just click once on the email address and a message comes up (with the e-mail address in the TO: part of the e-mail message

if you try this then see what it does

DoCmd.SendObject acSendNoObject, , , txtemail

is you want a template for subject the try this

DoCmd.SendObject acSendNoObject, , , txtemail, , , "enter your text here"

make sure you use the comms. try this and see what happens.

to automatically send it i think you add either false or true. As i am not sure check the questions i have posted yesterday (only three have funny titles look for HRG)

Hope this helps.