Thema Datum  Von Nutzer Rating
Antwort
Rot Übergabe eMail-Adressen mit Fehler 3061
28.02.2023 12:30:30 Andy_69
NotSolved
28.02.2023 14:16:12 Andy_69
Solved

Ansicht des Beitrags:
Von:
Andy_69
Datum:
28.02.2023 12:30:30
Views:
561
Rating: Antwort:
  Ja
Thema:
Übergabe eMail-Adressen mit Fehler 3061

Hallo liebes Fachteam,

Ich möchte einen Bericht (Pdf) an Outlook mit mehreren eMail-Adressen aus einer Tabelle übergeben. Mit einer festen eMail-Adresse hatte ich es bereits geschafft, aber mit mehreren bekomme ich immer ein Fehler. Ich befülle bereits mit einer Abfrage ein Kombinationsfeld im Formular, wo das Werk im Anschluss ausgewählt wird und möchte die dazugerhöigen eMail-Adressen an Outlook übergeben. Es sind keine Beziehungen eingerichtet.

Die Erstellung der Pdf sowie  Zwischenablage in LW "D" funktioniert alles problenlos.

Folgender Fehler kommt bim Start über das Formular:

Laufzeitfehler 3061, 1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.
Fehler kommt in folgender zeile:   Set rst = db.OpenRecordset(StrSQL) 

Programmcode...

Private Sub Befehl165_Click()       'eMail erstellen und an Outlook übergeben
Dim s, eTo, AWS, olOldBody, strAddress, StrSQL As String
Dim myMail, myOutlApp     As Object
Dim x As Date
Dim db As DAO.Database
Dim rst As DAO.Recordset

AWS = "D:\Temp\Losprüfung.pdf"                                  'Dateipfad und Name für Pdf-Zwischenspeicherung
If Dir$("D:\Temp\", vbDirectory) = "" Then MkDir "D:\Temp\"     'prüfen ob Ordner D:\Temp vorhanden, sonst anlegen
s = "andreas.korb@mustermann.com"                               'Absenderadresse (geändert)

StrSQL = "SELECT tbl_eMail_Adressen.eMail "
StrSQL = StrSQL & "FROM tbl_Werke INNER JOIN tbl_eMail_Adressen ON tbl_Werke.Werke_ID = tbl_eMail_Adressen.Werke_ID "
StrSQL = StrSQL & "WHERE (((tbl_eMail_Adressen.To)=True) AND ((tbl_Werke.Werke_Name)=[Formulare]![frm_Anschreiben]![Kombi_Werke]))"

    Set db = CurrentDb
    Set rst = db.OpenRecordset(StrSQL)
    
    With rst
        Do Until .EOF
            strAddress = strAddress & !eMail & ";"              'Empfängerliste(To) zusammenstellen
            .MoveNext
        Loop
        .Close
        Set rst = Nothing
    End With
    strAddress = Left(strAddress, Len(strAddress) - 1)

Application.Echo False
DoCmd.OutputTo acOutputReport, "ber_Anschreiben", acFormatPDF, "D:\Temp\Losprüfung" & ".pdf"    'Pdf erstellen/zwischenspeichern

Set myOutlApp = CreateObject("Outlook.Application")
Set myMail = myOutlApp.CreateItem(0)

    With myMail
        .GetInspector.Display
        olOldBody = .htmlBody
        .To = strAddress                                        ' To-Empfänger hinzufügen"
        .Subject = "Fehlende Generalnachweise E-Tfz | Monat " & Kombi_Monate & "'" & Kombi_Jahre    ' Den Betreff der Mail festlegen
        ' Text in die Mail einfügen...
        .htmlBody = "<font face=""calibri"" style=""font-size:12pt;"">Hallo zusammen,<br><br>" & "anbei die Losprüfung vom " & Date _
              & " mit der Bitte um Zusendung fehlender Generalnachweise (siehe Anhang)<br> an: L-Halter-Tfz-S@mustermann.com<br><br>" _
              & "<br><b>Monat:</b>  " & Kombi_Monate & "'" & Kombi_Jahre & " | " & Kombi_Werke _
              & "<br><br><b>PS:</b> Eventuell noch fehlende GN aus Vormonaten ebenfalls anfügen! " _
              & "<br><br>Sollte ein Mitarbeiter nicht mit im Verteiler angesprochen sein, bitte an Ihn weiterleiten." _
              & "<br>Bei Fragen bitte ich sie, sich an uns zu wenden. " _
              & "<br><br>Vielen Dank" & olOldBody               'Body. "<br>" = Zeilenumbruchanweisung
        .Attachments.Add AWS                                    'Datei anhängen
        .Display    '.Send                                      'Email Vorschau/Senden
    End With

    Set myMail = Nothing
    Set myOutlApp = Nothing
    
    rst.Close: Set rst = Nothing
    Set db = Nothing
    
Kill "D:\Temp\Losprüfung.pdf"                                   'pdf-Datei löschen
Application.Echo True
End Sub

Vielen Dank für Eure Unterstützung

Ich habe Access 365

vg Andy


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Übergabe eMail-Adressen mit Fehler 3061
28.02.2023 12:30:30 Andy_69
NotSolved
28.02.2023 14:16:12 Andy_69
Solved