2
Status aus Direktbereich in ungebundenem Textfeld ausgeben
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
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
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
Global email_protokoll As String
Public Function protokoll_email_senden() As String
protokoll_email_senden = email_protokoll
End FunctionIm 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
...
With objMessage
.Subject = EMailbetreff
.Sender = Sender ' Absender
.From = SenderName ' Absendername
.To = rs.Fields("E-Mail")
.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>"
On Error Resume Next
.Send
Set db_Bericht = CurrentDb
Set rs_Bericht = db.OpenRecordset("09_Bericht_gesendete_email")
If Err.Number <> 0 Then
' Bericht-Archiv erfolgreich gesendete email
With rs_Bericht
.AddNew
!Mailadresse = rs.Fields("E-Mail")
!Gesendet_Status = "Fehler"
!Details = Err.Description
!ID = field_id
'!EML_Pfad = Path & "\" & rs.Fields("E-Mail") & ".eml"
.Update
.Bookmark = rs.LastModified
End With
rs_Bericht.Close
db_Bericht.Close
Err.Clear
debug.print "e-Mail" & " Fehler " & Err.Description
Else
' Bericht-Archiv erfolgreich gesendete email
With rs_Bericht
.AddNew
!Mailadresse = rs.Fields("E-Mail")
!Gesendet_Status = "OK"
!ID = field_id
'!EML_Pfad = Path & "\" & rs.Fields("E-Mail") & ".eml"
.Update
.Bookmark = rs.LastModified
End With
rs_Bericht.Close
db_Bericht.Close
debug.print "e-Mail" & " OK"
End If
On Error GoTo 0
End With
empfänger = empfänger & rs.Fields("E-Mail") & "; "
Forms("Balken_send").SetFocus
rs.MoveNext
'Balken_send ende
prozent = prozent + (100 / imaxzeile)
Form_Balken_send.ProgressBar0.value = prozent
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 222221
Url: https://administrator.de/forum/status-aus-direktbereich-in-ungebundenem-textfeld-ausgeben-222221.html
Ausgedruckt am: 09.04.2025 um 14:04 Uhr
2 Kommentare
Neuester Kommentar
Hallo Thomas,
für eine globale Variable reicht die Deklaration mit
die Zuweisung eines Wertes zu dieser geht ja dann wie immer:
oder wo liegt das Problem ??
Grüße Uwe
für eine globale Variable reicht die Deklaration mit
Public email_protokoll as String
email_protokoll = "e-Mail Fehler : " & Err.Description Grüße Uwe
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.
Danke für die hilfe.
Thomas
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.
Form_Balken_send.sendto = "Es wurden " & i & " von " & imaxzeile & " gesendet. Aktuelle mail an: " & email_protokoll Danke für die hilfe.
Thomas
