Hallo!
Ich führe in Microsoft Access 2013 eine Datenbank über Mitglieder eines Vereins und habe mir einmal mit VBA eine Schaltfläche gebastelt. Wenn ich auf diese besagte Schaltfläche klicke, sollte sich normalerweise mein E-Mail-Editor öffnen und alle E-Mail-Adressen der gespeicherten Vereinsmitglieder in das BCC-Feld einfügen, sodass ich mühelos eine Rundmail an alle Vereinsmitglieder schreiben kann.
Nun habe ich wie von Geisterhand seit heute das Problem, dass diese Schaltfläche nicht mehr funktioniert. Mir wird immer ein Laufzeitfehler angezeigt:
Komischerweise habe ich nichts an der Datenbank verändert, der Fehler taucht wie gesagt wie von Geisterhand auf.
Hier der bisherige VBA-Code, der immer funktionierte:
Woran kann das liegen?
Liebe Grüße
Ich führe in Microsoft Access 2013 eine Datenbank über Mitglieder eines Vereins und habe mir einmal mit VBA eine Schaltfläche gebastelt. Wenn ich auf diese besagte Schaltfläche klicke, sollte sich normalerweise mein E-Mail-Editor öffnen und alle E-Mail-Adressen der gespeicherten Vereinsmitglieder in das BCC-Feld einfügen, sodass ich mühelos eine Rundmail an alle Vereinsmitglieder schreiben kann.
Nun habe ich wie von Geisterhand seit heute das Problem, dass diese Schaltfläche nicht mehr funktioniert. Mir wird immer ein Laufzeitfehler angezeigt:
| Laufzeitfehler 2046: Der Befehl oder die Aktion ‚SendenObjekt‘ ist zurzeit nicht verfügbar. |
Komischerweise habe ich nichts an der Datenbank verändert, der Fehler taucht wie gesagt wie von Geisterhand auf.
Hier der bisherige VBA-Code, der immer funktionierte:
Sub Befehl11_Click()
Dim rs As DAO.Recordset, strAdr As String
Set rs = CurrentDb.OpenRecordset("SELECT [E-Mail]" _ & " FROM Mitglieder" _ & " WHERE [E-Mail] Is Not Null" _
, dbOpenSnapshot)
Do Until rs.EOF
strAdr = strAdr & ";" & rs(0)
rs.MoveNext
Loop
If Len(strAdr) > 0 Then
DoCmd.SendObject , , , "max@email.de", , Mid(strAdr, 2) _
, "Vereinsnachrichten", "hier Text eingeben", True
Else
MsgBox "Keine Mailadressen gefunden"
End If
rs.Close: Set rs = Nothing
End Sub |
Woran kann das liegen?
Liebe Grüße