Vraag : De macro voor vertraging verzendt van uitblinkt blad aan een postontvanger

Hello hebben de Deskundigen,

I een knoop op actief die blad uitblinken aan de volgende macro wordt toegewezen:
Sub TestTimer ()
Dim timenow als Double
Dim MinuteDelay als Long
MinuteDelay = CLng (InputBox („ga hoeveel notulen in wilt vertragen u alvorens omzet te verzenden: “))
MinuteDelay = MinuteDelay * 60
MsgBox „klikt O.K. om Vertraging te beginnen verzendt Tijdopnemer "
timenow = Timer
Do de Ontvangers/>Loop
ActiveWorkbook.SendMail tot van de Tijdopnemer >= (timenow + MinuteDelay)
ne.com "
MsgBox „Bericht Verzonden "
End Sub

It bijna werken - word ik jammer genoeg een waarschuwing een „van Microsoft Office „“ van de Vooruitzichten programma probeert om e-mail uit uw naam“ automatisch te verzenden „u wil dit toestaan?“ dit vereist u om ja te selecteren alvorens e-mail wordt verzonden; daarom tegenwerkend de automatische vertraging verzend functie.

Is daar een andere manier rond dit?

Thanks voor uw help.

Antwoord : De macro voor vertraging verzendt van uitblinkt blad aan een postontvanger

De vooruitzichtenwaarschuwing is een veiligheidseigenschap maar één u kan rond werken,

Ik zou voorstellen aanvankelijk het gebruik namelijk van een DLL in vooruitzichten mapilab toe:voegen-binnen overga.  Ik gebruik uit routine dit en het is vrij voor zowel privé als handelsgebruiken, (of was de laatste tijd die ik heb gecontroleerd).  Fundamenteel doet de eerste keer u iets in code het een doos vragend opduikt of wilt u de actie toestaan en of uitgezocht doet u „altijd dit“ dan het bent transparant van dat punt.  d.w.z. installeer het, doen de actie en het zal

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

Chris