I am using VBA to automatically send emails with Outlook. I am surprised that the VBA takes about 10 seconds for each email.

Exceprts from my code are below. Is there anyway to speed this up?

Sub SendMessage(Recipient, Message, Subject)
Dim MyEmailVariable As Outlook.MailItem
Set MyEmailVariable = MyOutlookVariable.CreateItem(olMailItem) 'Begin new email
' 
MyEmailVariable.To = Recipient                   'Set the person sending to
MyEmailVariable.Subject = Subject              'Set the Subject of the message
MyEmailVariable.Body = Message                 'Set the body of the message
MyEmailVariable.Attachments.Add "C:\Dummy Attachment.XLSX"     MyEmailVariable.Send                         
End Sub