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

Frage Entwicklung VB for Applications

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

17.11.2013 um 12:44 Uhr, 1308 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
Access 2010) debug.print in ungebundenem Textfeld ausgeben (wie Ausgabe im Direktbereich)
gelöst Frage von christiankarlMicrosoft Office9 Kommentare

Hallo, ich stehe vor einem Problem wo ich nicht weis wie ich es lösen kann. Ich lasse in Access ...

Microsoft Office
Wert aus Abfrage in einem ungebundenen Textfeld im Unterformular anzeigen
gelöst Frage von mreskeMicrosoft Office7 Kommentare

Hallo ich habe folgenden Aufbau: FormularA 1. Unterformular (UFO1): Meine Artikelnummern 2. Unterformular (UFO2): zur dem in UFO1 ausgewählten ...

Windows 7
0xc0000225 status
gelöst Frage von Andrew1983Windows 72 Kommentare

Hallo Leute ich habe mir ein Gigabyte Ga-970-a-ds3p geholt und wollte Windows drauf machen bekomme dann die fehler mehldung ...

VB for Applications
Suchen in Word-Textfeldern
gelöst Frage von MarcoBornVB for Applications17 Kommentare

Hallo Forum, ich habe folgendes Problem. In einer Word-Datei habe ich pro Seite normalen Text und jeweils ein Textfeld. ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...