Application.Dialogs(xlDialogSendMail).Show... help?

[jonbh10]

Hi,

I have the following code to add the workbook to outlook and auto insert the email address.

Private Sub Email_Click()
Application.ScreenUpdating = False
Application.Dialogs(xlDialogSendMail).Show "jon@abc.com", Range("B15").Value
Application.ScreenUpdating = True
End Sub

I can't seem to add 2 email addresses in?

I've tried... and many similar combinations.

Private Sub Email_Click()
Application.ScreenUpdating = False
Application.Dialogs(xlDialogSendMail).Show "jon@abc.com; jon@def.com", Range("B15").Value
Application.ScreenUpdating = True
End Sub

However, this doesn't look the email addresses. It only works if only 1 address is within the code.

Any ideas or alternatives would be great.
Thanks
Jon

 

[bensonsearch]

Hi,

try the below change

Application.Dialogs(xlDialogSendMail).Show "[EMAIL="jon@abc.com"]jon@abc.com[/EMAIL];" & "[EMAIL="jon@def.com"]jon@def.com[/EMAIL];", Range("B15").Value