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, 1270 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
LAN, WAN, Wireless
Cisco AccessPoint 1131 - Status LED Red Radio LED blinkt rot (9)

Frage von 1x1speed zum Thema LAN, WAN, Wireless ...

Batch & Shell
gelöst Batch ausgabe zeilenweise stat spaltenweise ausgeben (4)

Frage von sugram zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...