i am using the code from a prior thread and I am running into a problem with the .To = email part of the code. It gives me an error message that says there must be at least one email address in the To field. I don't want to pull this from a field I would like to just hard code an email ID into that field since all the forms submitted should go to that one email address. I have not used VB and am not a programmer. If you could tell me how to handle this I would greatly appreciate it.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Email from Form hardcode mail address
- Thread starter kdschool
- Start date
- Thread starter
- #3
Yes that worked and it's sending the email and it is updating the table but it's not sending the form data in the email.
Here is my code.
Private Sub AddRecordButton_Click()
Dim firstname, lastname As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
'**gathers information from your form. this sets the string variable to your fields
firstname = Me!firstname
lastname = Me!lastname
'***creates an instance of Outlook
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
'***creates and sends email
With objEmail
.To = "jiwilson@xxx.com"
.Subject = "New Record"
.Body = "this is an new record"
.Send
End With
'**closes outlook
Set objEmail = Nothing
'** objOutlook.Quit
Exit Sub
End Sub
Here is my code.
Private Sub AddRecordButton_Click()
Dim firstname, lastname As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
'**gathers information from your form. this sets the string variable to your fields
firstname = Me!firstname
lastname = Me!lastname
'***creates an instance of Outlook
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
'***creates and sends email
With objEmail
.To = "jiwilson@xxx.com"
.Subject = "New Record"
.Body = "this is an new record"
.Send
End With
'**closes outlook
Set objEmail = Nothing
'** objOutlook.Quit
Exit Sub
End Sub
it's not sending the form data in the email."
What data would you like to send?
Right now you just have:[tt]
.Body = "this is an new record"[/tt]
and that's what you will have in the e-mail's Body.
BTW - Dim firstname, lastname As String
Only lastname is String, firstname is Variant
Have fun.
---- Andy
What data would you like to send?
Right now you just have:[tt]
.Body = "this is an new record"[/tt]
and that's what you will have in the e-mail's Body.
BTW - Dim firstname, lastname As String
Only lastname is String, firstname is Variant
Have fun.
---- Andy
- Thread starter
- #5
- Thread starter
- #6
Let's say you have on your Form a text box named txtFirstName and another one named txtLastName
Try:
[tt]
.Body = "Hello " & txtFirstName & vbNewLine
.Body = .Body & "Dear " & txtFirstName & " " & txtLastName
[/tt]
So if your txtFirstName has "Bob" and txtLastName has "Brown",
your e-mail should say:
[tt]
Hello Bob
Dear Bob Brown
[/tt]
If you can show me what you have and what you want to have, I may be able to help you. Just indicate which 'pieces' are the Form fields.
Have fun.
---- Andy
Try:
[tt]
.Body = "Hello " & txtFirstName & vbNewLine
.Body = .Body & "Dear " & txtFirstName & " " & txtLastName
[/tt]
So if your txtFirstName has "Bob" and txtLastName has "Brown",
your e-mail should say:
[tt]
Hello Bob
Dear Bob Brown
[/tt]
If you can show me what you have and what you want to have, I may be able to help you. Just indicate which 'pieces' are the Form fields.
Have fun.
---- Andy
- Thread starter
- #8
Yes that syntax works great. I see I need to learn some VB enough to get through this. Your help is greatly appreciated. I did not want to go this route unless I was sure I could send the form data through email upon entry since that was a requirement.
Thank you again.
Thank you again.
- Status
