I have created a custom form using the Post form. On the form, users will
select a recipient. I want that recipient to receive an email when the form
is posted. I have the following code. How do I get it to email the selected
recipient? I don't want to hard-code an email address in the code because
the recipient will vary.

Function Item_Write()
Set newItem = Application.CreateItem(0)
With newItem
..To = ???
..Subject = "New On-Site Visit Report"
..Body = "There is a new On-Site Visit Report for you to view."
..Send
End With
End Function

Did you want to present the user with the Address Book dialog to select a
Recipient? If so, you can't do this with the Outlook Object Model. You'll
have to use CDO - see the Session.AddressBook method.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Robert" wrote:

I have created a custom form using the Post form. On the form, users will
select a recipient. I want that recipient to receive an email when the form
is posted. I have the following code. How do I get it to email the selected
recipient? I don't want to hard-code an email address in the code because
the recipient will vary.

Function Item_Write()
Set newItem = Application.CreateItem(0)
With newItem
.To = ???
.Subject = "New On-Site Visit Report"
.Body = "There is a new On-Site Visit Report for you to view."
.Send
End With
End Function

There's only 2 or 3 choices to choose from so it doesn't need to be the
address book. It could be a Combo Box.

I've tried the following but I get "Object Required" when I post the form.

..To = ComboBox1.text

"Eric Legault [MVP - Outlook]" wrote:

Did you want to present the user with the Address Book dialog to select a
Recipient? If so, you can't do this with the Outlook Object Model. You'll
have to use CDO - see the Session.AddressBook method.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Robert" wrote:

I have created a custom form using the Post form. On the form, users will
select a recipient. I want that recipient to receive an email when the form
is posted. I have the following code. How do I get it to email the selected
recipient? I don't want to hard-code an email address in the code because
the recipient will vary.

Function Item_Write()
Set newItem = Application.CreateItem(0)
With newItem
.To = ???
.Subject = "New On-Site Visit Report"
.Body = "There is a new On-Site Visit Report for you to view."
.Send
End With
End Function

See http://www.outlookcode.com/d/propsyntax.htm for the correct syntax for referring to controls.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Robert" wrote in message ...
There's only 2 or 3 choices to choose from so it doesn't need to be the
address book. It could be a Combo Box.

I've tried the following but I get "Object Required" when I post the form.

.To = ComboBox1.text

"Eric Legault [MVP - Outlook]" wrote:

Did you want to present the user with the Address Book dialog to select a
Recipient? If so, you can't do this with the Outlook Object Model. You'll
have to use CDO - see the Session.AddressBook method.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Robert" wrote:

I have created a custom form using the Post form. On the form, users will
select a recipient. I want that recipient to receive an email when the form
is posted. I have the following code. How do I get it to email the selected
recipient? I don't want to hard-code an email address in the code because
the recipient will vary.

Function Item_Write()
Set newItem = Application.CreateItem(0)
With newItem
.To = ???
.Subject = "New On-Site Visit Report"
.Body = "There is a new On-Site Visit Report for you to view."
.Send
End With
End Function

If you need to refer to a control value or a custom property value in an
Outlook form, you have to use different syntax.

For a control value:

myVar = Item.GetInspector.ModifiedFormPages("P.1").Control s("ComboBox1").Value

For a custom field (if you bound your control to a field, use this approach
instead):

myVar = Item.UserProperties("MyFieldName").Value

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Robert" wrote:

There's only 2 or 3 choices to choose from so it doesn't need to be the
address book. It could be a Combo Box.

I've tried the following but I get "Object Required" when I post the form.

.To = ComboBox1.text

"Eric Legault [MVP - Outlook]" wrote:

Did you want to present the user with the Address Book dialog to select a
Recipient? If so, you can't do this with the Outlook Object Model. You'll
have to use CDO - see the Session.AddressBook method.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Robert" wrote:

I have created a custom form using the Post form. On the form, users will
select a recipient. I want that recipient to receive an email when the form
is posted. I have the following code. How do I get it to email the selected
recipient? I don't want to hard-code an email address in the code because
the recipient will vary.

Function Item_Write()
Set newItem = Application.CreateItem(0)
With newItem
.To = ???
.Subject = "New On-Site Visit Report"
.Body = "There is a new On-Site Visit Report for you to view."
.Send
End With
End Function