Setting a default profile when invoking Outlook in a Procedure

D

DoctorV

I have a line of code in an Excel Workbook that invokes the Outlook sen
dialog box and loads the "To" address, but every time it comes up wit
a dialog box with Choose Profile and Profile names listed in
dropdown

How can I specify the default Profile when I invoke Outlook?

Here is my line of code to invoke Outlook. Thanks

Application.Dialogs(xlDialogSendMail).Sho
.ActiveSheet.Range("b4").Valu
 
Top