Fehler bei VBA-Code (aus Ac2000) in Ac2003

04/09/2008 - 08:44 von brigitte | Report spam
ich habe Office 2003 neu installiert, wenn ich jetzt den folgenden Code
ausführen möchte, kommt die Meldung "Objekterstellung durch
ActiveX-Komponente nicht möglich"

da ich diesen Code nicht selbst erstellt habe (sondern ihn von einem
hilfreichen MItglied der Community vor Jahren für mein Access 2000 bekommen
habe)
bin ich völlig ratlos, was ich tun soll, damit ich weiterhin aus Access
heraus meine mails ins Outlook gestellt bekomme=>
könnte mir bitte jemand helfen, der VBA versteht????
vielen Dank im Voraus
brigitte

Public Function fnc_sendmail(An As String, CC As String, bcc As String,
Betreff As String, Nachricht As String, Anlagen As String)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookattach As Outlook.Attachment

DoCmd.SetWarnings False

If IsNull(An) Or IsNull(Betreff) Then
MsgBox "Bitte füllen sie die Standardfelder (An und Betreff).", ,
AppName
End If

Set objOutlook = CreateObject("Outlook.Application")

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
'Nachricht erstellen
With objOutlookMsg

Set objOutlookRecip = .Recipients.Add(Nz(An))
'Empfànger
objOutlookRecip.Type = olTo

If CC <> "" Then
Set objOutlookRecip = .Recipients.Add(Nz(CC, ""))
'CC Empfànger
objOutlookRecip.Type = olCC
End If

If bcc <> "" Then
Set objOutlookRecip = .Recipients.Add(Nz(bcc, ""))
'BCC Empfànger
objOutlookRecip.Type = olBCC
End If


.Subject = Betreff '
Betreffzeile"
.Body = Nachricht '
Nachricht
.Importance = olImportanceNormal '
Wichtigkeit


If Anlagen <> "" Then '
Anlagen anfügen
Set objOutlookattach = .Attachments.Add(Anlagen)
End If

For Each objOutlookRecip In .Recipients '
Empfàngen auflösen
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send
End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
DoCmd.SetWarnings True
End Function
 

Lesen sie die antworten

#1 Mark Doerbandt
04/09/2008 - 09:21 | Warnen spam
Hallo,

brigitte:

ich habe Office 2003 neu installiert, wenn ich jetzt den folgenden Code
ausführen möchte, kommt die Meldung "Objekterstellung durch
ActiveX-Komponente nicht möglich"



Lies doch mal FAQ Punkt 7.9 (http://www.donkarl.com).

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen