Frage : Makro für Verzögerung senden einer Postempfänger von einem übertreffenblatt

Hallo lassen Experten,

I einen Knopf auf dem Active das Blatt übertreffen, das dem folgenden Makro zugewiesen wird:
Sub TestTimer ()
Dim timenow als Double
Dim MinuteDelay als Long
MinuteDelay = CLng (InputBox („erreichen, wieviele Minuten Sie verzögern möchten, bevor Sie Umsatz senden: "))
MinuteDelay = MinuteDelay * 60
MsgBox „Klicken O.K., zum von Verzögerung zu beginnen, Timer zu senden "
timenow = Timer
Do bis Timer >= (timenow + MinuteDelay)

Loop
ActiveWorkbook.SendMail Empfänger: = " someone@someone.com "
MsgBox „Mitteilung sendete "
End Sub

It fast Arbeiten - leider erhalte ich eine „Microsoft Office-Aussicht ein Programm“, die warnt „, versuche, eMail in Ihrem Namen automatisch zu senden“ „Sie möchte dieses erlauben?“ dieses erfordert Sie, ja vorzuwählen, bevor die eMail gesendet wird; die automatische Verzögerung folglich, vereitelnd, Funktion senden.

Is dort eine andere Weise um dieses?

Thanks für Ihr help.

Antwort : Makro für Verzögerung senden einer Postempfänger von einem übertreffenblatt

Die Aussichtwarnung ist ein Sicherheitsmerkmal, aber eins, das Sie herum bearbeiten können,

Ich vorschlagen zuerst führe den Gebrauch eines DLL in der Aussicht nämlich das Erweiterungs mapilab s-.  Ich verwende dieses routinemäßig und es ist für privaten und Handelsverbrauch frei, (oder war das letzte Mal, das ich überprüfte).  Im Allgemeinen, das erste mal Sie etwas im Code tun, knallt es oben einen Kasten, der fragt, ob Sie die Tätigkeit erlauben möchten und wenn Sie auserwählt „immer dies“ dann tun, es von diesem Punkt transparent sind.  es d.h. anbringen, tun die Tätigkeit und sie wird

http://www.mapilab.com/outlook/security

Chris