Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Schleife Do until EOF warten lassen nach x Läufen

Frage Entwicklung VB for Applications

Mitglied: napperman

napperman (Level 2) - Jetzt verbinden

14.07.2011, aktualisiert 09:49 Uhr, 3428 Aufrufe, 2 Kommentare

Moin zusammen!

Ich habe hier eine kleine Access-Anwendung laufen. Diese soll es dem Vertrieb ermöglichen eine Befragung unser Kunden zur Kundenzufriedenheit zu starten.
Es gibt also eine Abfrage, welche die Kunden auswählt die angemailt werden sollen.
Um die Mails loschzuschicken nutze ich eine Schleife. Und hier liegt genau mein Problem:
Es werden später im Mittel 30-40 Mails pro Monat werden. Allerdings ist die erste Befragung deutlich größer (etwa 500 Mails)
Ich möchte die nicht auf einen Schwung rausschicken, sondern nach x Mails eine Zeit z warten. Wie stelle ich das an?
Hier der Code:

01.
 
02.
Private Sub Befehl5_Click() 
03.
Dim Db As DAO.Database 
04.
    Dim Rs As DAO.Recordset 
05.
    Dim strSql As String 
06.
    Set Db = CurrentDb 
07.
    strSql = "SELECT e_mail, projektnummer, hauptansprechpartnerbanrede FROM Testabfrage" 
08.
    Set Rs = Db.OpenRecordset(strSql) 
09.
    Rs.MoveFirst 
10.
    Do Until Rs.EOF 
11.
        Nachricht = "" 
12.
        If Rs!hauptansprechpartnerbanrede > 0 Then 
13.
        Nachricht = Rs!hauptansprechpartnerbanrede 
14.
        Else 
15.
        Nachricht = "Sehr geehrte Damen und Herren" 
16.
        End If 
17.
        If Nachricht Like "*," Then 
18.
        Nachricht = Nachricht & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
19.
        Else 
20.
        Nachricht = Nachricht & "," 
21.
        Nachricht = Nachricht & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
22.
        End If 
23.
        Nachricht = Nachricht & "wir möchten heute DANKE sagen für die gute Zusammenarbeit in diesem Jahr." 
24.
        Nachricht = Nachricht & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
25.
        Nachricht = Nachricht & "Waren Sie bisher mit uns zufrieden?" 
26.
        Nachricht = Nachricht & Chr(13) & Chr(10) 
27.
        Nachricht = Nachricht & "Wir haben großes Interesse daran, zu erfahren, was Ihnen an uns gefällt und was wir besser machen können." 
28.
        Nachricht = Nachricht & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
29.
        Nachricht = Nachricht & "Daher eine Bitte an Sie." 
30.
        Nachricht = Nachricht & Chr(13) & Chr(10) 
31.
        Nachricht = Nachricht & "Wir haben 5 Fragen bereitgestellt und würden uns freuen, wenn Sie diese beantworten würden." 
32.
        Nachricht = Nachricht & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
33.
        Nachricht = Nachricht & "Einfach klicken und beantworten:" 
34.
        Nachricht = Nachricht & Chr(13) & Chr(10) 'hier kürze ich mal ab       
35.
    'hier gehts dann sinnvoll weiter 
36.
        DoCmd.SendObject acSendNoObject, , acFormatTXT, _ 
37.
                         Rs!e_mail, , , "Bitte nehmen Sie an unserer Zufriedenheitsumfrage teil", Nachricht, False 
38.
       
39.
        Rs.MoveNext 
40.
    Loop 
41.
 
Mitglied: Byteblizz
14.07.2011 um 10:05 Uhr
ich würde ne variable in der schleife mitzählen lassen und beim wert x den thread schlafen legen für y sekunden zb dann die variable wieder auf 0 setzen

Lg
Bitte warten ..
Mitglied: napperman
14.07.2011 um 12:33 Uhr
Danke!
Das hat geholfen. Manchmal hilft schon ein kleiner Denkanstoß

Gruß,

Napperman
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Do-While Schleife mit test-path
gelöst Frage von windelterroristBatch & Shell12 Kommentare

Sry, dass ich euch nochmals stören muss Brauche Hilfe bei einer Do-While Schleife Es soll erst nach $destination abgefragt ...

Batch & Shell
VBS - Do While Schleife - zusätzliche Bedingung
gelöst Frage von goodbytesBatch & Shell5 Kommentare

Hallo, in einem Ordner sollen alle jpg- und pdf-Datein durchlaufen werden, umbenannt und verschoben werden. Das funktioniert auch tadellos, ...

Batch & Shell
Seltsames Verhalten bei Errorlevel abfrage in FOR DO Schleife
gelöst Frage von Kalma73Batch & Shell1 Kommentar

Hallo, ich bin gerade dabei ein Stromausfall Shutdown Script zu schreiben. Habe schon einiges Ausprobiert und mir ist etwas ...

Batch & Shell
Umgang mit externen Variablen innerhalb einer FOR ... DO Schleife ...
gelöst Frage von JuergenlBatch & Shell4 Kommentare

Hallo BATCH'elors mein oben beschriebene Aufgabenstellung habt Ihr Euch sicher längt an den Schuhsolen abgelaufen - ich bitte daher ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 21 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 4 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 5 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Windows 10
Probleme mit Dateien, deren Pfad + Dateiname länger als 256 Zeichen sind
Frage von FalaffelWindows 1011 Kommentare

Guten Tag, unter Windows 10 scheint es immer noch das Problem zu geben, dass der Pfad + Dateiname einer ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Microsoft Office
Outlook 2016 - Makro startet nicht über Knopf im Menüband
Frage von ZunarasMicrosoft Office9 Kommentare

Schönen guten Tag! ich brauche wieder einmal Hilfe. Ich möchte gerne von Office 2010 32bit auf 2016 64bit wechseln ...