E-Mails nach versand aus Access im Ordner (aud dem Desktop) speichern
Poul
Gesendet: 11.07.12 11:33
Betreff: E-Mails nach versand aus Access im Ordner (aud dem Desktop) speichern


Hallo zusammen,

ich habe eine Idee und möchte wissen ob und wie sowas realisierbar wäre.


Meine Idee:

Aus Access gesendete E-Mails sollten nach dem versenden in einen Ordner "Mails" und dann in einem jeweiligen Unterordner der den jeweiligen Namen der Empfänger hat gespeichert werden. der Ordner befindet sich auf dem desktop. Dies soll ein Automatismus sein.
Mail gesendet -> Speichern im jeweiligen Unterorner (wenn es diesen noch nciht gibt, dann soll einer erstellt werden)


Kann man sowas in den folgenden code einbauen? Ist sowas überhaupt möglich?

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 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 "C:\blabla.pdf"
.Send

End With
docmd.close ("txtMail Deutsch")

dbs.MoveNext
Loop

Set OutVerz = Nothing
Set OutMail = Nothing

MsgBox ("Mail wurde an Empfänger versendet")

End Sub



Meine zweite Frage:

Ist es möglich nach dem Versand der E-mail ein anderes geöffnetes Formular zu schließen?

docmd.close ("txtMail Deutsch") funktioniert nicht. Hier erscheint die Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich


Ich bedanke mich schon im Vorraus für eure Mühe und hoffe das sowas realisierbar ist.

Beste Grüße
Poul
Top of the page Bottom of the page