E-Mails nach versand aus Access im Ordner (aud dem Desktop) speichern
Poul
Gesendet: 12.07.12 13:42 Betreff: RE: E-Mails nach versand aus Access im Ordner (aud dem Desktop) speichern
Hallo Karl,
leider kommt eine Fehlermeldung mit .saveas
Laufzeitfehler : 2147221238 (8004010a)
Das Element wurde verschoben oder gelöscht.
vielleicht hab cihs auhc falsch gemacht, wie gesagt bin noch ein Anfänger.
code:
Public Sub Befehl3_Click()
'sendet Serienmail an alle auf Deutsch
Dim OutVerz As Object
Dim OutMail As Object
Dim OutMapi As Outlook.Application
Set OutMapi = New Outlook.Application
Dim objNewMail As Outlook.MailItem
Dim CONN As Database
Dim dbs As Recordset
Dim strText As String
Const Titel As String = "Diagnosestrategie"
Set CONN = CurrentDb()
strText = "SELECT Mail from Tabelle1"
Set dbs = CONN.OpenRecordset(strText)
Do Until dbs.EOF
Set OutMail = OutMapi.CreateItem(olMailItem)
With OutMail
.Subject = Titel
.Body = "Hallo"
.To = dbs!Mail
.Attachments.Add "blabla.pdf"
.Send
.SaveAs "C:\Users\q286826\Desktop\Mail"
End With
'nach dem senden soll txtFormular geschlossen werd
dbs.MoveNext
Loop
Set OutVerz = Nothing
Set OutMail = Nothing
MsgBox ("Mail wurde an Empfänger versendet")
End Sub
dabei Fällt mir ein hinweis auf. Mit saveas würde Access ja alle ausgehende Mails ungeordnet in dem Ordner "C:\Users\q286826\Desktop\Mail" speichern. Ich will diese aber in Unterordner von "Mail" haben die den Namen der empfängermailadressen tragen.
E-Mails nach versand aus Access im Ordner (aud dem Desktop) speichern