| |
| Guten Morgen Peter,
vielen Dank erstmal für die Mühe die du dir gemacht hast.
Leider haben die Änderungen nichts bewirkt ausser der tatsache das jetzt eine Fehlermeldung erscheint: Laufzeitfehler 2450: MS-Office kann das Formular "txtMail Deutsch" nicht finden, auf das in einem Makro oder einer VBa Programmzeile hingewiesen wurde.
Das Formular txtMail Deutsch existiert aber bei mir und Trotzdem wird dieselbe Zeile .Body = Forms!["txtMail Deutsch"]![Text2].Value 'ändern als Fehler ausgewiesen
Anbei nochmal der 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 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 = Forms![txtMail Deutsch]![Text2].Value 'ändern
.To = dbs!Mail
.Attachments.Add "C:\Users\q286826\Desktop\Musterpraesentation_Qualitaet_final_neu_klein.pptx"
.Send
End With
dbs.MoveNext
Loop
Set OutVerz = Nothing
Set OutMail = Nothing
End Sub
Danke schon im Voraus für weitere Lösungansätze | |
|
