Databases
StackOverflow2013
Postsdbo
POHow to add a second optional object to open Outlook in Access VBA?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POHow to add a second optional object to open Outlook in Access VBA?
    primarykey
    data
    text
    <p>So far I have the first referral open-up the Outlook and retrieving the right email address with an automatic customized message. Now, I'm trying to add a second referral, <code>Referral_To_ID_2</code> as an optional, meaning don't raise error if it isn't selected. Below is the form and the code I have so far, but I'm not quite sure if I'm doing it right by assigning a reference to my second object, <code>Referral_To_ID_2</code> as well as the <code>If</code> statement. Now it's actually giving me an error if I don't select anything in <code>Referral_To_ID_2</code> Can anyone explain me the best way to add a second object as an optional? Many thanks! </p> <p><img src="https://i.stack.imgur.com/u1rhJ.png" alt="enter image description here"></p> <pre><code>Private Sub cmdReferralEmail_Click() Dim emailAddresses As Collection, newEmail As Email Dim emailAddresses2 As Collection, newEmail2 As Email Set emailAddresses = GetEmails(referralId:=Referral_To_ID) Set emailAddresses2 = GetEmails(referralId:=Referral_To_ID_2) If emailAddresses Is Nothing Then 'User cancelled ElseIf emailAddresses2 Is Nothing Then 'User cancelled GoTo ExitHandler ElseIf emailAddresses.count = 0 Then MsgBox "No email addresses were selected for this client.", vbExclamation Else Set newEmail = New Email Set newEmail2 = New Email With newEmail .HtmlBody = _ "&lt;p&gt;We referred a potential client to you, " &amp; _ Nz(First_Name &amp; " ", "") &amp; Nz(Last_Name, "") &amp; _ ", who needs help with an employment matter in " &amp; Nz(State, "your state") &amp; _ ". Thank you for any assistance you might be able to provide.&lt;/p&gt;" Set .MailTo = emailAddresses Set .MailTo = emailAddresses2 .Cc.Add "kjghkjgh@ihiu.com" .Subject = "Potential" .Send End With End If End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USA_Pointar
    1. USA_Pointar
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. COCould it be because you're trying to `Set .MailTo = emailAddresses2` when there actually isn't an email? What is the error message? Secondly, at the top when you `Set emailAddresses2 = ...` shouldn't you use `ID_2` at the end? And why can't you use an `IF` statement to say `IF referral 2 not null, then` concatenate your email addresses so you only add one big one? That's how I set mine. Loop and concatenate until `EOF`
      singulars
      1. POHow to add a second optional object to open Outlook in Access VBA?
      1. USGrant
    2. CO@TKEyi60 Yes, you're right! I forgot to look my code carefully and added those you mentioned. The error message is going to Set emailAddresses2 = GetEmails(referralId:=Referral_To_ID_2) telling that there's no user input. Also I like your suggestion about concatenating email which I think is the most important part of this. Can you please hint some more on it? Maybe coding syntax? I'm so new to VBA. Thanks a bunch!
      singulars
      1. POHow to add a second optional object to open Outlook in Access VBA?
      1. USA_Pointar
    3. COI would like to apologize, because I cannot figure out how to concatenate multiple email addresses. I looked back at old code I had written and I'll post below. See if that helps. And sorry again.
      singulars
      1. POHow to add a second optional object to open Outlook in Access VBA?
      1. USGrant
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload