Excel VBA Outlook Application

[Dewitt]

I need a work around for the ".Display" element of this code (underlined)


The macro is to auto write and send an email to every contact logged in this table by setting the range.
The display element is necessary for launching the default signature into the email but it is causing problems when going through multiple contacts.

I tried an ".ApplicationWait" function. (or whatever it goes like) but it caused it to lag and crash.

Needless to say the signature is absolutely necessary but could do with it sending each email without having to open it to send the email.

Any help would be much appreciated.


Sub CombinedMacro()
Dim App As Outlook.Application
Dim Mail As Outlook.MailItem
Dim signature As String
Set App = NewOutlook.Application
Set Mail =App.CreateItem(MailItem)
For i = 2 To 2
WithMail
.Display
End With
signature =Mail.HTMLBody
With Mail
.To =Cells(i, 1).Value
.Subject = Cells(i, 6).Value
.HTMLBody = "TEXT"& vbNewLine & signature
.Send
End With
Next
End Sub

Thanks in advance.