Forum des VBA-Tutorials

Emails nach Lieferant versenden (VBA)

DRO1989, Dienstag, 05. Dezember 2017, 11:43 (vor 10 Tagen)

Hallo Zusammen,

ich habe eine Access Datenbank in der ich nach Lieferant eine "temporäre Abfrage" generiere und diese dann in einem Zielpfad ablege.

Nun möchte ich jedoch noch zusätzlich, dass er zu den einzelnen Abfragen, jeweils den Email - Explorer aufruft, sodass ich diese dann per Email direkt an den Lieferanten raussenden kann. Ich stehe nur auf dem Schlauch, wie ich das Ganze machen soll. Perfekt wäre noch, wenn man noch eine Anlage ("Anschreiben zur Ausschreibung") an die Mail hängen kann. Das Anschreiben befindet sich dann auf einem frei wählbaren Laufwerk.

Hier mal mein Code, der momentan nur ablegt:

[Sub ExcelExport()
If IsNull(Me!txt_Pfad) Then
MsgBox "Bitte füllen Sie einen Pfad für den Export aus", vbOKOnly

Else

Dim ExcelZielName As String
ExcelZielName = Me!txt_Pfad & "\"
' Const ExcelZielName = [Me!txt_Pfad] ' + Lieferant + xls
' Abfrage wird automatisch erzeugt und gelöscht
Const tmpAbfrage = "qrytemp_original"
Dim sSQL As String, gSQL As String
Dim qdf As DAO.QueryDef
Dim Grs As DAO.Recordset


' Gruppierung um alle ID's zu ermitteln
Set Grs = CurrentDb.OpenRecordset("SELECT [Lieferant] " & _
"FROM [Filter_Ausschreibung_original] " & _
"GROUP BY [Lieferant];")

Grs.MoveFirst
While Not Grs.EOF
' Generierung und Speicherung einer (temporären) gefilterten Abfrage
sSQL = "SELECT * " & _
"FROM [Filter_Ausschreibung_original] " & _
"WHERE [Lieferant]='" & Grs![Lieferant] & "'"
Debug.Print sSQL
' evtl. alte Abfrage löschen
On Error Resume Next
DoCmd.DeleteObject acQuery, tmpAbfrage
On Error GoTo 0
Set qdf = CurrentDb.CreateQueryDef(tmpAbfrage, sSQL)
'Debug.Print "Export :" & ExcelZielName & Grs![Vendor-Nr] & ".xls"
DoCmd.TransferSpreadsheet acExport, , tmpAbfrage, _
ExcelZielName & " " & Grs![Lieferant] & ".xls", True


Grs.MoveNext
Wend

End If
End Sub]

Danke schon Mal für eure Hilfe!!!


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum