VBA Send email only when combobox is populated

[rvinci]

Good Morning,

Thank you in advance for any help anybody can provide with this issue.

I have the below piece of code for sending an email. My issue is that I want a .BCC to be sent only when an additional combobox is filled. It will send no problem when everything is filled but the .BCC will only be on occassion so the rest of the time it would just be blank.

Dim OutMail As Object
Dim strbody As String
     
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     
    On Error Resume Next
    With OutMail
        .To = Me.claimprofessional.Value + "@company.com"
        .CC = Me.um.Value + "@company.com"
        .Subject = "New Claim Assignment"

 

[Dryver14]

you could try

With OutMail
IF combox ...........(or whatever is filled)<>"" then
.To = Me.claimprofessional.Value + "@company.com"
.CC = Me.um.Value + "@company.com"
.Subject = "New Claim Assignment"
else
.To = Me.claimprofessional.Value + "@company.com"
.Subject = "New Claim Assignment"
End IF

 

[rvinci]

That did the trick! Thank you so much.

 

[Dryver14]

Your welcome