Outlook Application wird nicht gefunden

Hi,

ich habe mal die folgende Klasse (für Access) geschrieben um Mails via Outlook zu versenden.
Aber ich denke das Funktioniert auch so.
Was mir aufgefallen ist, dass Du erstens die Variablen nicht ordentlich deklariert hast und mail wahrscheinlich falsch Setzt hast
Ich denke es müsste so aussehen:

Dim out As Outlook.Application
Dim mail As Out.MailItem
Set out = CreateObject("Outlook.Application")
Set mail = out.CreateItem(olMailItem)

Es fehlt auch die Deklaration des Empfängers
Dim objOutRecip As Outlook.Recipient
Set objOutRecip = .Recipients.Add("email@hotmail.de")
objOutlookRecip.type = olTo


Kopier einfach den Code unten und teste

'Als erstes musst Du eine Neue Klasse, i.e. clsSendMail mit dem folgenden Code erstellen
'Geht auch ohne Klasse, als Funktion. Das mit der Klasse flunzt aber besser


Option Compare Database

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment


Public Sub Init()
Set objOutlook = CreateObject("Outlook.Application")
DoEvents
End Sub

Public Sub End_Mail()
Set objOutlook = Nothing
End Sub

Public Sub Add_Mail(Mail_To, Mail_CC,Mail_BCC,AttachmentPath, Subject, ByVal Mail_Msg As String)
' Das Mail Objekt erstellen.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)


With objOutlookMsg
'Den Empfänger, TO, hinzufügen.
Set objOutlookRecip = .Recipients.Add(Mail_To)
objOutlookRecip.type = olTo

'den CC hinzufügen
If Mail_CC <> "" Then
Set objOutlookRecip = .Recipients.Add(Mail_CC)
objOutlookRecip.type = olCC
End If

'Den BCC hinzufügen
If Mail_BCC <> "" Then
Set objOutlookRecip = .Recipients.Add(Mail_BCC)
objOutlookRecip.Type = olBCC
End If
' Das Subject und die "importance" erstellen.
.Subject = Subject
.Body = Mail_Msg
.Importance = olImportanceHigh

' Wenn benötigt, Attachments.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Die Empfänger über Outlook auflösen.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next

.Send 'Und jetzt senden
DoEvents
End With

Set objOutlookMsg = Nothing
DoEvents

End Sub

' ---------------------------------------------------------
'Nun kannst Du diese Klasse von Überall heraus mit diesem Code aufrufen

Dim Mail As New clsSendMail 'Hier wird Mail als neues KlasseObjekt von Sendmail definiert

'Der AttachmentPath ist die location der zu attachenden Datei, i.e. c:\..\...\attachment.doc

Mail.Init
Mail.Add_Mail Mail_To, , Mail_CC,Mail_BCC,AttachmentPath, Subject, Mail_Msg