Hallo
ich erzeuge in Excel eine Email und schicke diese mit dem Outlookbefehl .send ab. Nun kommt von Outlook die Meldung, dass ein fremdes Programm eine Email versenden will. Der JA Button wird in dieser Meldung erst nach 6 Sekunden aktiv.
Wie kann ich aus meinen Excel VBA-Programm diese Meldung abfangen, so dass der Anwender diese Meldung nicht immer quittieren muss?
Ich verwende:
Dim OutApp As Outlook.Application, Mail As Object
Dim Nachricht As MailItem
' 1.1 Variable belegen
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(olMailItem)
' 1.2 Email erzeugen, Daten übergeben und senden
With Nachricht
.To = EmailAdr ' Email Adresse
.Subject = Betreff ' Betreff
.Body = Infotext ' Emailtext
.Send
End With
End Sub
PS: Wird kein Spam Mail Generator sondern ein Benachrichtungssystem unserer Empfangsdamen zu den Blackberries unserer Keyaccounts während einer Hausmesse