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

Status aus Direktbereich in ungebundenem Textfeld ausgeben

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

17.11.2013 um 12:44 Uhr, 1349 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
Microsoft Office
Absatz in Textfeld deaktivieren
gelöst Frage von eraiserMicrosoft Office6 Kommentare

Hallo, ich kämpfe gerade mit dem erstellen einer Briefvorlage in MS Office Word 2016. Da die Vorlage zukünftig aus ...

Switche und Hubs
Cisco Befehl Status
gelöst Frage von Florian961988Switche und Hubs16 Kommentare

Hallo, ich google mich tot und finde nicht das was ich suche! Wir sind am bauen und in dem ...

Datenbanken

Access 2010 Textfeld automatisch aktualisieren

gelöst Frage von Dr.CornwallisDatenbanken2 Kommentare

Liebe Gemeinde, auf einem Formular befinden sich 2 Textfelder, 1. Feld: txtDatumPicker hier wird ein Datum eingetragen(kurz), also zb. ...

Microsoft Office

Access Bericht Steuerelementeninhalt im Textfeld

gelöst Frage von bluepythonMicrosoft Office4 Kommentare

Hallo, stehe vor folgendem Problem: Tabelle "tbl_benutzer" Name Tebelle "tbl_Projekte" ProjektID Die Tabelle "tbl_Projekte" wird über ein Formular gefüllt, ...

Neue Wissensbeiträge
Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 2 StundenDatenschutz1 Kommentar

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 5 StundenSicherheit

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 23 StundenInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 1 TagWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Glasfaserkabel verlegen und Anschlüsse setzen
Frage von LLL0rdLAN, WAN, Wireless20 Kommentare

Hallo Leute, ich muss demnächst ein Netzwerkkabel auf einer Länge von ca. 70 Metern verlegen. Das Netzwerkkabel soll dabei ...

Basic
VBS soll alle Ordner auswählen, die im Startmenu angezeigt werden
Frage von Senseless-CreatureBasic12 Kommentare

Guten Morgen - gibt es eine Möglichkeit, per VBS das Startmenu in Win10 zu modifizieren? Ich beherrsche VBS mittlerweile ...

E-Mail
Wie funktionieren DNS Blacklisten?
gelöst Frage von WinLiCLIE-Mail12 Kommentare

Ich frage mich schon seit längerem, woher genau die Blacklisten für die Mailserver die Domains und Ips kennen die ...

Server-Hardware
Server Hardwareempfehlung für Projekt
gelöst Frage von heax22Server-Hardware12 Kommentare

Hallo zusammen, ich bin auf der Suche nach einer geeigneten Server Plattform um unter Hyper-V einen virtuellen Server 2016 ...