Problem med automatisering af Outlook mailudsendelse

Jeg har lavet en VBA rutine, der via Outlook sender mails ud (rutine indsat forneden).

Mit problem er, at når rutinen når til .Send får jeg en meddelelesboks i Outlook, der spørger om det er OK at sende en mail via Outlook. Det er et problem da jeg skal sende et par hundrede personaliserede e-mails ud.

Er der nogen, der har et bud på hvordan man omgår denne rutine? Eller evt. har en work-around?

Rutine:

Public Function MailHtml(strMail As String, strSubject As String, strBody As String, Optional blnHTML As Boolean = True) As Boolean
Dim strOutput As String

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem

MailHtml = False

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
    .To = strMail
    .Subject = strSubject
    If blnHTML = True Then
        .BodyFormat = olFormatHTML
        .HTMLBody = strBody
    Else
        .Body = strBody
    End If
    .Display
    .Send
End With

MailHtml = True
End Function