thomas1972
Goto Top

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

Global email_protokoll As String

Public Function protokoll_email_senden() As String
  protokoll_email_senden = email_protokoll
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
... 

    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 
 

Content-Key: 222221

Url: https://administrator.de/contentid/222221

Ausgedruckt am: 29.03.2024 um 00:03 Uhr

Mitglied: colinardo
colinardo 17.11.2013 aktualisiert um 14:41:02 Uhr
Goto Top
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:
email_protokoll = "e-Mail Fehler : " & Err.Description  
oder wo liegt das Problem ??

Grüße Uwe
Mitglied: thomas1972
thomas1972 20.11.2013 um 07:45:17 Uhr
Goto Top
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.

Form_Balken_send.sendto = "Es wurden " & i & " von " & imaxzeile & " gesendet. Aktuelle mail an: " & email_protokoll  

Danke für die hilfe.

Thomas