Microsoft Office Forums - View Single Post - [Solved] Not using the default email address

trevorc · 12-14-2021, 05:29 PM

Hi All,
I have a strange problem with my email, i use several email accounts and have changed the default one to match my office login details, When i run the code below in uses the wrong email address even though that is not the default.

Code:

        Dim MailOutLook
        Dim olmailItem
        Dim AppOutLook
        Set AppOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = AppOutLook.CreateItem(olmailItem)
        With MailOutLook
            .To = Intersect(acrow, tblColumns("Email Address").Range)
            .Subject = " "
            .Body = "Hi " 
            .Display
        End With
        Exit Sub
    Else
    End If