Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Status aus Direktbereich in ungebundenem Textfeld ausgeben

Frage Entwicklung VB for Applications

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

17.11.2013 um 12:44 Uhr, 1284 Aufrufe, 2 Kommentare

Hallo,
ich versende mit der Funktion CDO.Message emails,
das funktioniert auch soweit ganz gut.

Den Fehler lasse ich in eine Tabelle schreiben und am Schluss anzeigen,
ich möchte nun aber, dass der Versand in einem ungebundenen Textfeld fortlaufen mitgeschrieben wird und sozusagen als "Fortschritt" dem Ersteller der Email angezeigt wird.
Im Moment läuft hier nur ein "Fortschrittsbalken ohne Information"
Ich habe versucht es mit debug.print nur bekomme ich dieses nicht hin.

Globale Variablen habe ich bereits

01.
Global email_protokoll As String 
02.
 
03.
Public Function protokoll_email_senden() As String 
04.
  protokoll_email_senden = email_protokoll 
05.
End Function
Im Formular habe ich die als Steuerelementinhalt
=protokoll_email_senden()
angewiesen

Ich bekomme es nur nicht hin den debug.print in eine Variable schreiben zu lassen.
Wie bekomme ich es hin den Debug.print in die Variable email_protokoll zu schreiben?

Auszug aus dem unverändertem Code
01.
 
02.
...  
03.
 
04.
    With objMessage  
05.
     .Subject = EMailbetreff  
06.
     .Sender = Sender   ' Absender  
07.
     .From = SenderName ' Absendername  
08.
     .To = rs.Fields("E-Mail")  
09.
     .HTMLBody = "<style type=""text/css"">.MyText,td,th,body {font-family:Arial, Helvetica, sans-serif !Important; font-size:10pt !Important;}</style><p class=""MyText"">" & Email & "</p>"  
10.
       
11.
         
12.
     On Error Resume Next  
13.
       
14.
               .Send  
15.
                 
16.
                 
17.
                 
18.
     
19.
                    Set db_Bericht = CurrentDb  
20.
                    Set rs_Bericht = db.OpenRecordset("09_Bericht_gesendete_email")  
21.
                     
22.
                   If Err.Number <> 0 Then  
23.
                     
24.
                   
25.
                   ' Bericht-Archiv erfolgreich gesendete email  
26.
                 
27.
         
28.
                    With rs_Bericht  
29.
                         .AddNew  
30.
                         !Mailadresse = rs.Fields("E-Mail")  
31.
                         !Gesendet_Status = "Fehler"  
32.
                         !Details = Err.Description  
33.
                         !ID = field_id  
34.
                         '!EML_Pfad = Path & "\" & rs.Fields("E-Mail") & ".eml"  
35.
                         .Update  
36.
                         .Bookmark = rs.LastModified  
37.
                         End With  
38.
                    rs_Bericht.Close  
39.
                    db_Bericht.Close  
40.
                        Err.Clear  
41.
             
42.
                       debug.print "e-Mail" & "  Fehler " &   Err.Description  
43.
             
44.
 
45.
Else  
46.
                     
47.
                       
48.
                    ' Bericht-Archiv erfolgreich gesendete email  
49.
                     
50.
           
51.
                    With rs_Bericht  
52.
                         .AddNew  
53.
                         !Mailadresse = rs.Fields("E-Mail")  
54.
                         !Gesendet_Status = "OK"  
55.
                         !ID = field_id  
56.
                         '!EML_Pfad = Path & "\" & rs.Fields("E-Mail") & ".eml"  
57.
                         .Update  
58.
                         .Bookmark = rs.LastModified  
59.
                         End With  
60.
     
61.
                    rs_Bericht.Close  
62.
                    db_Bericht.Close  
63.
                    
64.
                  debug.print "e-Mail" & "  OK"  
65.
                     
66.
                    End If  
67.
                On Error GoTo 0  
68.
    End With  
69.
    empfänger = empfänger & rs.Fields("E-Mail") & "; "  
70.
    Forms("Balken_send").SetFocus  
71.
    rs.MoveNext  
72.
     
73.
    'Balken_send ende  
74.
    prozent = prozent + (100 / imaxzeile)  
75.
 
76.
    Form_Balken_send.ProgressBar0.value = prozent  
77.
 
Mitglied: colinardo
17.11.2013, aktualisiert um 14:41 Uhr
Hallo Thomas,
für eine globale Variable reicht die Deklaration mit
Public email_protokoll as String
die Zuweisung eines Wertes zu dieser geht ja dann wie immer:
01.
email_protokoll = "e-Mail Fehler : " & Err.Description
oder wo liegt das Problem ??

Grüße Uwe
Bitte warten ..
Mitglied: thomas1972
20.11.2013 um 07:45 Uhr
Hallo colinardo,

danke für deine Rückmeldung.
Ich babe es ein wenig anders gelösst

ich habe im Formular des Balken nur ein weiteres Textfeld hinzu gefügt.

01.
Form_Balken_send.sendto = "Es wurden " & i & " von " & imaxzeile & " gesendet. Aktuelle mail an: " & email_protokoll
Danke für die hilfe.

Thomas
Bitte warten ..
Ähnliche Inhalte
Windows Update
gelöst Server hat seinen Status seit 70 Tagen nicht bei WSUS gemeldet (2)

Frage von fox14ch zum Thema Windows Update ...

Windows Server
Status-eMails vom Windows Server 2012 R2 Foundation (1)

Frage von Calvus zum Thema Windows Server ...

Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...