Quantcast
Channel: Microsoft Access Forum
Viewing all articles
Browse latest Browse all 880

Laufzeitfehler 2046 wie von Geisterhand

$
0
0
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:
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

Viewing all articles
Browse latest Browse all 880


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>