Number (ContactID) instead the e-mail of contact

[jonny]

I have some form with combobox, where I'm selecting a contact whom to send an e-mail. This combo that called 'Delivered_By' is retrieving data from table 'Contacts'.



Row source of this field is: SELECT Contacts.[Contact ID], Contacts.[Contact Name] FROM Contacts ORDER BY Contacts.[Contact Name];

With objOutlookMsg
              ' Add the To recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add(Delivered_By)
              objOutlookRecip.Type = olTo

When the message is opening in 'To' field appears a NUMBER (ContactID) instead the e-mail of contact. Any advices?

Thank you

[dcrake]

For a start how does it know what the email address is? your combo box row source should be

SELECT [Contact ID], [Contact Name], [Email Address] FROM Contacts WHERE [Email Address] Is Not Null ORDER BY [Contact Name];

You bound column in your combo should be set to 1 (Contact id)

Then you need to revise this line of code

 
 
Set objOutlookRecip = .Recipients.Add(Delivered_By)

to

 
Set objOutlookRecip = .Recipients.Add(Me.Delivered_By.Column(2))

Because the columns are zero based in the combo box column(2) is the third column in the combo. I have also included an Is Not Null condition as you can only send a person an email if they have an email address to send it to.

Also I have Assumed the [Email Address] is the actual name of the field in your contacts table. If different you will need to change it.

David

[jonny]

Hi Sir, thank you for your help.
I solved a problem with following code:

Private Sub btnSend_Click()
    Dim oOApp As Outlook.Application
    Dim oOMail As Outlook.MailItem

    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(olMailItem)
    
    With oOMail
        .To = Me.Received_By.Column(1) & " <" & Me.Received_By.Column(2) & ">"
        .Subject = "email subject"
        .Body = "email message"
        .Display
    End With
End Sub

Regards..