Senden einer Email mit Item.Send
28.02.2007 14:40:32
Lars
ich versende aus Excel eine Email mittels VBA. Ich erhalte folgende Meldung:
A program is trying to automatically send e-mail on your behalf. Do you want to allow this? If this is unexpected, it may be a virus and you should choose "No".
Yes, No, Help
Mein Code lautet:
Sub Sendingmail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "lars.cichos@d-fine.de"
.Subject = "test"
.Send
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Wie kann ich diese Meldung ausschalten?
Vielen Dank & Grüsse Lars
Anzeige