Office: (Office 2003) Email mit verschiedenem Anhang aus Access

Helfe beim Thema Email mit verschiedenem Anhang aus Access in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Der Aufruf mit dem OLConnector funktioniert jetzt ohne Fehler, aber er "wirkt" noch nicht (Sicherheitsmeldung kommt trotzdem, übrigens auch in der... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Michi, 21. September 2007.

Seite 4 von 5

EBS17

ebs17

Email mit verschiedenem Anhang aus Access

Der Aufruf mit dem OLConnector funktioniert jetzt ohne Fehler, aber er "wirkt" noch nicht (Sicherheitsmeldung kommt trotzdem, übrigens auch in der Exceldatei aus dem Downloadfile von Sascha).

Jetzt aber noch ein anderer Hinweis: Geschäftliche E-Mails müssen die gleichen Angaben mitführen wie die Briefbögen (kompletter Name, Adresse, Geschäftsführung, HR-Nummer usw.). Bitte informieren und ergänzen. Man muss keine Abmahnanwälte füttern.

ebs17, 6. November 2007

#46
UWEK

uwek

Hallo,

habe mir das Bsp. einmal heruntergeladen.
Also die Benutzung des OlConnectors v. Sascha funktioniert tadellos (O03) mit u. ohne Kennwortabfrage.
@Eberhard
Ansonsten eine gute Lösung

uwek, 6. November 2007

#47
EBS17

ebs17

\@ uwek:
Danke für den Test. Zu wissen, dass das OLC-Problem mein eigenes und nicht das des Beispiels ist, erspart mir einige Sucherei.

Der weiter oben beschriebene Fehler resultierte daraus, dass ich bei fehlendem Anhang eine falsche Prüfung verwendet hatte.

Im Anhang die bereinigte Fassung.

ebs17, 6. November 2007

#48
EBS17

ebs17

Email mit verschiedenem Anhang aus Access

Pech gehabt. Beim der abschließenden Fehlerbehandlung hatte ich einen Fehler eingebaut.

ebs17, 7. November 2007

#49
EBS17

ebs17

Grand Malheur:

Ich habe in eine Prozedur, die ohne Meckern lief, nachträglich eine Fehlerbehandlung eingefügt und gedacht, das war´s.

Eben nicht. Zwei Fehler (4601: Anwendung kann nicht aktiviert werden; 5941: Das angeforderte Element ist nicht in der Sammlung vorhanden) warteten auf Entdeckung. Ich staune, dass sich bei 6 Downloads noch niemand beschwert hat.

Ich hoffe, nun ist alles bereinigt. Zusätzlich verwende ich jetzt generell eine neue Word-Instanz, um bereits geöffnete Word-Dokumente nicht zu beeinflussen.

ebs17, 7. November 2007

#50
MICHI

Michi

Also bei mir läuft alles völlig problemlos (hab die "Endversion" ausprobiert)! Keine Fehlermeldung und ich muss auch keine Sicherheitsmeldung mehr bestätigen. Hat aber auch schon bei den beiden vorherigen Versionen problemlos funktioniert (allerdings musste ich da noch die Sicherheitsmeldung bestätigen).

Allerdings bin ich jetzt kein Fachmann für Fehlerbehandlungen. Ich verwende A03 und Outlook 2003, läuft einwandfrei.

Genau so hatte ich es mir vorgestellt.

@ Eberhard: Danke für den Hinweis mit den Email-Formvorschriften!

Michi, 7. November 2007

#51
MICHI

Michi
Als kleine Verbesserung habe ich bei den Feldern

Bereich

Datum

Mitarbeiter

eine Ereignisprozedur hinterlegt, die die letzten Eingaben in das nächste Endlosformular überträgt.

Bei Massenerfassungen spart man sich bei diesen Feldern die oft mehrfach erforderlichen gleichen Angaben. Alle anderen Feldinhalte ändern sich erfahrungsgemäß laufend.
Michi, 7. November 2007

#52
MICHI

Michi

Email mit verschiedenem Anhang aus Access

Hallo wiedermal *Smilie

Hab jetzt den Code einem Praxis-Härtetest unterzogen und es läuft alles wunderbar.

Als Rückkopplung an den Protokollersteller habe ich am Ende der Schleife noch eine Meldung "Alle Protokolle wurden versandt!" eingebaut. Ich hoffe, die Stelle, an der ich das eingebaut habe, ist so in Ordnung und ist nicht in Konflikt mit möglichen Fehlerprozeduren:

Code:

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Me!Protokolle_versenden.SetFocus
End Sub

Private Sub Protokolle_versenden_Click()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRange As Range
Dim wdZeile As Row
Dim sDocVorlage As String
Dim sDocName As String
Dim sAktiv$ 'um das aktive Dokument anzusteuern
Dim sVorlage$ 'um die Serienbrief-Vorlage anzusteuern
Dim db As DAO.Database
Dim rsE As DAO.Recordset
Dim rsP As DAO.Recordset
Dim sText As String
Dim i As Long
Dim j As Long
Dim anzZ As Long
Dim sBetreff As String
Dim sNachricht As String

sDocVorlage = CurrentProject.Path & "\Wachdienstprotokoll.dot"
'Neue Instanz von Word aufrufen
Set wdApp = CreateObject("Word.Application")
On Error GoTo ErrHandler
With wdApp
'Unsichtbar schalten
.Visible = False
'Aktivieren (nur bei Visible=True)
'.Activate
Set db = CurrentDb
Set rsE = db.OpenRecordset("Select Distinct Empfänger, Speichername From Protokolldaten", _
dbOpenSnapshot) 'Email-Adressen durchlaufen
If Not rsE.BOF And Not rsE.EOF Then
rsE.MoveFirst
Do While Not rsE.EOF
sDocName = CurrentProject.Path & "\Protokolle\" & rsE!Speichername & ".doc"
i = 2 'Tabellenzeile für Eintrag
'Vorlage als Dokument öffnen
.Documents.Add Template:=sDocVorlage
'Name der aktiven Vorlage zwischenspeichern
Set wdDoc = .ActiveDocument
sVorlage = .ActiveDocument.Name
'Ereignisse für den Email-Empfänger
Set rsP = db.OpenRecordset("Select Datum, Format(Uhrzeit, 'hh:nn'), Ereignis " _
& "From Protokolldaten where Empfänger Like '" & rsE(0) & "'")
rsP.MoveLast
anzZ = rsP.RecordCount ' Anzahl Ereignisse für Zeilenanzahl
Set wdRange = wdDoc.Range(wdDoc.Bookmarks("Tabelle").Start, _
wdDoc.Bookmarks("Tabelle").End)
For j = 1 To anzZ
Set wdZeile = wdRange.Rows.Add ' Zeile anfügen
Next j
rsP.MoveFirst
'Tabelle füllen
Do While Not rsP.EOF
For j = 1 To 3
.ActiveDocument.Tables(2).Rows(i).Cells(j).Range = rsP(j - 1)
Next j
i = i + 1
rsP.MoveNext
Loop
Set rsP = Nothing
'Namen des aktiven Dokuments der Variablen zuweisen
sAktiv = wdApp.ActiveDocument.Name
'Dokument speichern
With wdApp.Documents(sAktiv)
.SaveAs FileName:=sDocName
.Close
End With

' Mailversand nach Outlook
sBetreff = "Wachdienstprotokoll"
sNachricht = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
"anbei wieder das aktuelle Wachdienstprotokoll." & vbCrLf & _
"Mit freundlichen Grüßen" & vbCrLf & _
"Ihr D&S-Team"
fct_OutlookMail rsE(0), , , sBetreff, sNachricht, sDocName
rsE.MoveNext
Loop
Else
MsgBox "Keine Protokolldaten zum Versand vorhanden"
End If
' übermittelte Ereignisse als gesendet setzen
db.Execute "UPDATE Ereignisse SET Gesendet = True;"
MsgBox "Alle Protokolle wurden versandt!"
End With

ExitFunction:
Set wdZeile = Nothing
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & ": " & Err.Description
Resume ExitFunction
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man das Teil jetzt in der Praxis verwendet, erkennt man natürlich erst die Möglichkeiten, die sich einem da bieten.

So wäre es interessant, noch die im Word-Protokoll ersichtliche Verteilerliste automatisch mit bis zu fünf Werten zu befüllen. Diese zusätzliche Tabelle auf der Word-Vorlage ist für diejenigen Kunden gedacht, die sich das Protokoll ausdrucken und "von Hand im Haus" verteilen wollen (ein Exemplar für den Meier, eins für den Huber zum Abzeichnen). Das hat nichts mit den Email-Empfängern zu tun und ist eine reine Datenweitergabe von maximal 5 Werten pro Dokument an Word. Wenn der Kunde keine Daten für die Verteilerliste hat, wird auch nichts in diese Felder weitergegeben.

Da keine variable Tabelle befüllt werden muss (wie bei der Haupttabelle), sondern immer nur maximal 5 Zellen, dürfte das Ganze nicht ganz so kompliziert sein, wie unser in den vorigen Beiträgen gelöstes Problem. Ich würde deshalb mit fünf einzelnen Textmarken und ohne Range arbeiten. Die Tabelle gibt quasi nur die Form vor, ansonsten sind das ganz normale Einzelfelder wie im Adressfeld eines Serienbriefs.

Ich hab die Felder in der Tabelle "Bereiche" und auch in der Abfrage "Protokolldaten"bereits hinterlegt. Die Textmarken mit den simplen Bezeichnungen "Verteiler1", "Verteiler2" usw. habe ich auch in Word eingebaut.

Die zweite Zeile der Tabelle "Verteiler" braucht nicht gefüllt zu werden! Die ist wirklich nur zum Abzeichnen da.

Zusätzlich möchte ich das Feld "Protokollnummer" in die Word-Vorlage an die gleichnamige Textmarke weitergeben. Die ist zwar in der Kopfzeile, aber das macht ja keinen Unterschied.

Mir ist jetzt die Vorgehensweise nicht ganz klar. Sollte ich einen neuen Recordset anlegen (z. B. rsV für die Verteilerdaten und die Protokollnummer) oder kann ich die bestehenden um diese Felder erweitern?

Vielen Dank!

Michi

Anbei wie immer sowohl Datenbank mit Beispieldaten als auch Word-Vorlage im Office2000-Format.

Michi, 10. November 2007

#53
EBS17

ebs17

Deine Meldung gehört nicht an das Ende de Prozedur, sondern in den Zweig "Protokolldaten vorhanden".

Das erste Recordset ist bestens für die zusätzlichen Angaben geeignet. Ich habe die Auflistung erweitert.

ebs17, 10. November 2007

#54
MICHI

Michi

Hallo Eberhard,

alles klar. Bin Dir wieder mal zu Dank verpflichtet! Hab's eben ausprobiert - klappt super!

Viele Grüße!

Michi

Michi, 10. November 2007

#55
MICHI

Michi

Kann man eigentlich die letzte freie Zeile, die beim Befüllen der Word-Tabelle immer entsteht, irgendwie unterdrücken?

Hab schon was von einer Delete-Funktion gelesen, aber vielleicht kann man ja verhindern, dass diese überflüssige Zeile überhaupt erst entsteht.

Ursache könnte Folgendes sein: Bei der Word-Vorlage muss ich in der Tabelle unter der Beschriftungszeile eine leere Zeile einbauen, damit die (im Vergleich zur Beschriftung unterschiedliche) Formatierung bei allen eingefügten Zeilen übernommen wird.

Michi, 11. November 2007

#56
EBS17

ebs17

Die Stelle im Code ist leicht zu finden. Einfach ausprobieren.
Code:

...
For j = 1 To anzZ - 1
Set wdZeile = wdRange.Rows.Add ' Zeile anfügen
Next j
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17, 11. November 2007

#57
MICHI

Michi

Email mit verschiedenem Anhang aus Access

Super! Vielen Dank!

Da, das Programm nun alle Vorgaben perfekt erfüllt, stelle ich den Thread auf "erledigt".

An dieser Stelle noch einmal vielen Dank an alle, die mich tatkräftig unterstützt haben - insbesondere an Eberhard!

Interessenten würde ich bitten, nur noch die untenstehende "bereinigte" Version zu downloaden. Es wurden darin alle funktionierenden Email-Adressen herausgenommen, die zu Testzwecken eingegeben wurden. Das schont meine Nerven und mein Postfach ungemein *biggrin.gif*

Viele Grüße!

Michi

Michi, 11. November 2007

#58
MICHI

Michi
Hallo!

Jetzt muss ich doch glatt nochmal ein eigentlich erledigtes Thema aufmachen *Smilie

Erstmal vorneweg: Die von uns in den obigen Beiträgen erarbeitete Lösung hat sich in der Praxis außerordentlich bewährt! Alles läuft einwandfrei und ohne Fehlermeldung.

Trotzdem möchte ich die Funktion des Codes nun etwas erweitern. Bisher läuft ja folgendes ab:

Datensätze aus der Abfrage "Protokolldaten" mit dem Kriterium "gesendet=nein" werden ausgelesen

Diese Datensätze werden in ein Word-Dokument als Tabelle gefüllt

Das Word-Dokument wird per Mail versandt

Bisher war dieser Versand praktisch auf einer Empfängerebene, also alle Ereignisse aus einem Bereich wurden einem Empfänger, der diesem Bereich zugeordnet war, zusammengestellt und zugemailt.

Nun möchte ich eine weitere Ebene einführen, die über der Bereichsebene liegt und bei der mehrere Bereiche zusammengefasst werden - ich habe dies "Gruppen" genannt.

Bisher hatte ich also Bereichsempfänger, nun möchte ich auch Gruppenempfänger, die den Bereichen übergeordnet sind (z. B. Bereiche sind Abteilungsleiter 1 und 4 und Gruppe ist der Chef der beiden Abteilungsleiter, der einen Gesamtbericht über beide Bereiche erhält).

Somit ist es natürlich notwendig, nach anderen Kriterien auszulesen. Habe ich eigentlich recht simpel mit dem ja/nein-Feld "Gruppenempfänger".

Es funktioniert auch alles soweit, mit nur einem Nachteil: Ich hab das Ganze auf zwei Buttons/Codes verteilt.

Hier der bisherige Code mit der (ersten) Bereichsebene:

Code:

Private Sub Bereichsprotokolle_versenden_Click()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRange As Range
Dim wdZeile As Row
Dim sDocVorlage As String
Dim sDocName As String
Dim sAktiv$ 'um das aktive Dokument anzusteuern
Dim sVorlage$ 'um die Serienbrief-Vorlage anzusteuern
Dim db As DAO.Database
Dim rsE As DAO.Recordset
Dim rsP As DAO.Recordset
Dim sText As String
Dim i As Long
Dim j As Long
Dim anzZ As Long
Dim sBetreff As String
Dim sNachricht As String

sDocVorlage = CurrentProject.Path & "\Wachdienstprotokoll.dot"
'Neue Instanz von Word aufrufen
Set wdApp = CreateObject("Word.Application")
On Error GoTo ErrHandler
With wdApp
'Unsichtbar schalten
.Visible = False
'Aktivieren (nur bei Visible=True)
'.Activate
Set db = CurrentDb
Set rsE = db.OpenRecordset("Select Distinct Empfänger, Speichername, Verteiler1, " _
& "Verteiler2, Verteiler3, Verteiler4, Verteiler5, Protokollnummer " _
& "From Protokolldaten", dbOpenSnapshot) 'Email-Adressen durchlaufen
If Not rsE.BOF And Not rsE.EOF Then
rsE.MoveFirst
Do While Not rsE.EOF
sDocName = CurrentProject.Path & "\Protokolle\" & rsE!Speichername & ".doc"
i = 2 'Tabellenzeile für Eintrag
'Vorlage als Dokument öffnen
.Documents.Add Template:=sDocVorlage
'Name der aktiven Vorlage zwischenspeichern
Set wdDoc = .ActiveDocument
sVorlage = .ActiveDocument.Name
'Ereignisse für den Email-Empfänger
Set rsP = db.OpenRecordset("Select Datum, Format(Uhrzeit, 'hh:nn'), Ereignis " _
& "From Protokolldaten where Empfänger Like '" & rsE(0) & "'")
rsP.MoveLast
anzZ = rsP.RecordCount ' Anzahl Ereignisse für Zeilenanzahl
Set wdRange = wdDoc.Range(wdDoc.Bookmarks("Tabelle").Start, _
wdDoc.Bookmarks("Tabelle").End)
For j = 1 To anzZ - 1
Set wdZeile = wdRange.Rows.Add ' Zeile anfügen
Next j
rsP.MoveFirst
'Tabelle füllen
Do While Not rsP.EOF
For j = 1 To 3
.ActiveDocument.Tables(2).Rows(i).Cells(j).Range = rsP(j - 1)
Next j
i = i + 1
rsP.MoveNext
Loop
Set rsP = Nothing

.ActiveDocument.Bookmarks("Verteiler1").Select
.Selection.Text = Nz(rsE("Verteiler1"), "")
.ActiveDocument.Bookmarks("Verteiler2").Select
.Selection.Text = Nz(rsE("Verteiler2"), "")
.ActiveDocument.Bookmarks("Verteiler3").Select
.Selection.Text = Nz(rsE("Verteiler3"), "")
.ActiveDocument.Bookmarks("Verteiler4").Select
.Selection.Text = Nz(rsE("Verteiler4"), "")
.ActiveDocument.Bookmarks("Verteiler5").Select
.Selection.Text = Nz(rsE("Verteiler5"), "")
.ActiveDocument.Bookmarks("Protokollnummer").Select
.Selection.Text = Nz(rsE("Protokollnummer"), "")

'Namen des aktiven Dokuments der Variablen zuweisen
sAktiv = wdApp.ActiveDocument.Name
'Dokument speichern
With wdApp.Documents(sAktiv)
.SaveAs FileName:=sDocName
.Close
End With

' Mailversand nach Outlook
sBetreff = "Wachdienstprotokoll"
sNachricht = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
"anbei wieder das aktuelle Wachdienstprotokoll." & vbCrLf & vbCrLf & _
"Mit freundlichen Grüßen" & vbCrLf & vbCrLf & _
"Ihr D&S-Team"
fct_OutlookMail rsE(0), , , sBetreff, sNachricht, sDocName
rsE.MoveNext
Loop
MsgBox "Alle Protokolle wurden versandt bzw. an Outlook übergeben!"
Else
MsgBox "Keine Protokolldaten zum Versand vorhanden!"
End If
' übermittelte Ereignisse als gesendet setzen
db.Execute "UPDATE Ereignisse SET Gesendet = True;"
End With

ExitFunction:
Set wdZeile = Nothing
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & ": " & Err.Description
Resume ExitFunction
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun der Code, den ich für die (höhere) Gruppenebene angepasst habe. Im Endeffekt habe ich nur ein paar Feldnamen geändert und den Recordset "E" durch "G" ersetzt:

Code:

Private Sub Gruppenprotokolle_versenden_Click()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRange As Range
Dim wdZeile As Row
Dim sDocVorlage As String
Dim sDocName As String
Dim sAktiv$ 'um das aktive Dokument anzusteuern
Dim sVorlage$ 'um die Serienbrief-Vorlage anzusteuern
Dim db As DAO.Database
Dim rsG As DAO.Recordset
Dim rsP As DAO.Recordset
Dim sText As String
Dim i As Long
Dim j As Long
Dim anzZ As Long
Dim sBetreff As String
Dim sNachricht As String

sDocVorlage = CurrentProject.Path & "\Wachdienstprotokoll.dot"
'Neue Instanz von Word aufrufen
Set wdApp = CreateObject("Word.Application")
On Error GoTo ErrHandler
With wdApp
'Unsichtbar schalten
.Visible = False
'Aktivieren (nur bei Visible=True)
'.Activate
Set db = CurrentDb
Set rsG = db.OpenRecordset("Select Distinct Empfänger, Speichername, Verteiler1_GE, " _
& "Verteiler2_GE, Verteiler3_GE, Verteiler4_GE, Verteiler5_GE, Protokollnummer " _
& "From Protokolldaten_Gruppenempfänger", dbOpenSnapshot) 'Email-Adressen durchlaufen
If Not rsG.BOF And Not rsG.EOF Then
rsG.MoveFirst
Do While Not rsG.EOF
sDocName = CurrentProject.Path & "\Protokolle\" & rsG!Speichername & ".doc"
i = 2 'Tabellenzeile für Eintrag
'Vorlage als Dokument öffnen
.Documents.Add Template:=sDocVorlage
'Name der aktiven Vorlage zwischenspeichern
Set wdDoc = .ActiveDocument
sVorlage = .ActiveDocument.Name
'Ereignisse für den Email-Empfänger
Set rsP = db.OpenRecordset("Select Datum, Format(Uhrzeit, 'hh:nn'), Ereignis " _
& "From Protokolldaten_Gruppenempfänger where Empfänger Like '" & rsG(0) & "'")
rsP.MoveLast
anzZ = rsP.RecordCount ' Anzahl Ereignisse für Zeilenanzahl
Set wdRange = wdDoc.Range(wdDoc.Bookmarks("Tabelle").Start, _
wdDoc.Bookmarks("Tabelle").End)
For j = 1 To anzZ - 1
Set wdZeile = wdRange.Rows.Add ' Zeile anfügen
Next j
rsP.MoveFirst
'Tabelle füllen
Do While Not rsP.EOF
For j = 1 To 3
.ActiveDocument.Tables(2).Rows(i).Cells(j).Range = rsP(j - 1)
Next j
i = i + 1
rsP.MoveNext
Loop
Set rsP = Nothing

.ActiveDocument.Bookmarks("Verteiler1").Select
.Selection.Text = Nz(rsG("Verteiler1_GE"), "")
.ActiveDocument.Bookmarks("Verteiler2").Select
.Selection.Text = Nz(rsG("Verteiler2_GE"), "")
.ActiveDocument.Bookmarks("Verteiler3").Select
.Selection.Text = Nz(rsG("Verteiler3_GE"), "")
.ActiveDocument.Bookmarks("Verteiler4").Select
.Selection.Text = Nz(rsG("Verteiler4_GE"), "")
.ActiveDocument.Bookmarks("Verteiler5").Select
.Selection.Text = Nz(rsG("Verteiler5_GE"), "")
.ActiveDocument.Bookmarks("Protokollnummer").Select
.Selection.Text = Nz(rsG("Protokollnummer"), "")

'Namen des aktiven Dokuments der Variablen zuweisen
sAktiv = wdApp.ActiveDocument.Name
'Dokument speichern
With wdApp.Documents(sAktiv)
.SaveAs FileName:=sDocName
.Close
End With

' Mailversand nach Outlook
sBetreff = "Wachdienstprotokoll"
sNachricht = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
"anbei wieder das aktuelle Wachdienstprotokoll." & vbCrLf & vbCrLf & _
"Mit freundlichen Grüßen" & vbCrLf & vbCrLf & _
"Ihr D&S-Team"
fct_OutlookMail rsG(0), , , sBetreff, sNachricht, sDocName
rsG.MoveNext
Loop
MsgBox "Alle Protokolle wurden versandt bzw. an Outlook übergeben!"
Else
MsgBox "Keine Protokolldaten zum Versand vorhanden!"
End If
' übermittelte Ereignisse als gesendet setzen
db.Execute "UPDATE Ereignisse SET Gesendet_GE = True;"
End With

ExitFunction:
Set wdZeile = Nothing
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & ": " & Err.Description
Resume ExitFunction
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich ist diese Zweiknopfmethode nicht gerade elegant und mein Ziel ist es, die beiden Codes zu einem zusammenzufassen. Zudem sind ja nicht alle Abläufe unbedingt doppelt notwendig (Öffnen von Word etc.).

Nur bin ich mir unsicher, welche Teile des unteren Codes relevant sind (neben rsG natürlich) und wo ich diesen Teil beim ursprünglichen Code einbaue. Nach meinem laienhaften Gefühl müsste es wohl irgendwo in dem Bereich von Code 1 rein:

Code:

Loop
MsgBox "Alle Protokolle wurden versandt bzw. an Outlook übergeben!"
Else
MsgBox "Keine Protokolldaten zum Versand vorhanden!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Messagebox-Meldungen müssten dann folglich beide Recordsets prüfen, ob überhaupt Datensätze vorhanden sind oder ob alle verarbeitet wurden.

Vielen Dank für Eure Unterstützung!

Viele Grüße!

Michi
Michi, 2. Februar 2008

#59
EBS17

ebs17

Hallo Michi,

wie ich es überblicke, ist der einzige Unterschied die Verwendung einer abweichenden Abfrage, wobei aber die Struktur der Abfrage gleich ist.

2 Wege sind möglich:

(1) Im auslösenden Formular wählt man über eine Opionsgruppe (optAuswahl), ob man Bereiche (Wert=1) oder Gruppen (Wert=2) verwenden will und damit die zu verwendende Abfrage.

Code:

Dim sSQL As String
...
Select Case optAuswahl
Case 1
sSQL = "Select Distinct Empfänger, Speichername, Verteiler1, " _
& "Verteiler2, Verteiler3, Verteiler4, Verteiler5, Protokollnummer " _
& "From Protokolldaten"
Case 2
sSQL = "Select Distinct Empfänger, Speichername, Verteiler1_GE As Verteiler1, " _
& "Verteiler2_GE As Verteiler2, ..., Protokollnummer " _
& "From Protokolldaten_Gruppenempfänger"
End Select
Set db = CurrentDb
Set rsE = db.OpenRecordset(sSQL, dbOpenSnapshot)
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für die nachfolgende Zuweisung an die Textmarken sollten die Spalten gleiche Namen haben. Effektiver ist es wahrscheinlich, die Abfrage "Protokolldaten" dynamisch in Abhängigkeit der Auswahl Bereich/Gruppe zusammenzustellen.

ebs17, 2. Februar 2008

#60

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 4 von 5

Thema:

Email mit verschiedenem Anhang aus Access

Die Seite wird geladen...

Email mit verschiedenem Anhang aus Access - Similar Threads - Email verschiedenem Anhang
eMail-Verteiler mit Outlook-Kontakten
in Microsoft Outlook Hilfe
eMail-Verteiler mit Outlook-Kontakten: Hallo zusammen, kann ich mit o365 in Outlook Kontakte anlegen, für die ich dann direkt in diesem Kontakt auswählen kann, ob und in welchen Mailverteilern sie landen sollen? Was ich schon probiert...
GMAIL blockiert meine abgehenden Emails
in Microsoft Outlook Hilfe
GMAIL blockiert meine abgehenden Emails: Hallo, seit ein paar Wochen werden manche meiner Emails an Adressaten mit gmail-Adressen blockiert. Ich bekomme dann eine Email "Undelivered Mail Returned to Sender", worin erklärt wird, dass...
Email an Kontakt - manchmal geht nur Vorname, manchmal nur Nachname
in Microsoft Outlook Hilfe
Email an Kontakt - manchmal geht nur Vorname, manchmal nur Nachname: Hallo, Wenn ich eine neue Email verfasse und im Empfängerfeld meine Kontakte eingeben möchte werden manche nur bei Eingabe des Vornamens, andere nur bei Eingabe des Nachnamens automatisch...
Wie ganze Absendergruppe löschen bei Email ?
in Microsoft Outlook Hilfe
Wie ganze Absendergruppe löschen bei Email ?: Hallo in die Runde! Ich habe heute das NEUE OUTLOOK. Wie kann ich ganze Absendergruppen löschen ohne jede einzelne mail anzuklicken? Konkret: Ich möchte von A-Z alle Absender im...
Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen
in Microsoft Excel Hilfe
Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen: Hallo Forum, ich bin noch nicht allzu lange registriert, konnte aber bereits viele Hilfen und interessante Ansätze aus den Beiträgen entnehmen, welche mir sehr geholfen haben. In der Hoffnung...
Zugriff auf verschiedene Email-Konto
in Microsoft Outlook Hilfe
Zugriff auf verschiedene Email-Konto: Hallo, mein Problem besteht eigentlich schon, so lange ich Outlook verwende, es nerv jedoch ziemlich. Also: Ich habe 1 Standard-Konto + 2 Incl.nutzer Wenn ich nun auf ein Email-Konto -...
anzeigen von emails verschiedener Konten in Outlook 2003
in Microsoft Outlook Hilfe
anzeigen von emails verschiedener Konten in Outlook 2003: Hallo, mit meinem Outlook 2003 rufe ich mehrere emailkonten ab. Meine Frage ist: kann man verschiedene emails in verschiedene Ordner anzeigen lassen. z.B. wenn eins meiner emailkonten...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden