Grüßt euch,
stehe gerade total auf dem Schlauch. Möchte eine Email versenden (mit .Send) ohne diese vohrer anzuzeigen (also ohne .Display).
Der Code sieht so aus:
Public Sub EmailFunktion()
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "test@teset.com"
.Subject = "test"
.Body = "test"
'.Display
.Send
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Jedoch bringt er mir immer eine Sicherheitsabfrage, ob denn die E-Mail tatsächlich versendet werden soll...
Ist es denn möglich, diesen Security Pass zu umgehen?
Grüße.
|