First, here is the simplest method. We will operate Outlook to send emails. Sub MailSend() Dim olApp As Object Dim olMail As Object Set olApp = CreateObject("Outlook.Application") Set olMail = ...