AW: Fehler 429
07.02.2009 23:51:00
Tino
Hallo,
ich habe nur diesen Vorschlag, den Verweis auf Outlook beim start zu setzen.
Großer Nachteil, dem Zugriff auf VBA- Projekte muss vertraut werden.
Ob es jetzt in Deinem Fall hilft kann ich auch nicht sagen,
weil ich dies nicht nachvollziehen kann.
kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Delete_Library_Outlook
End Sub
Private Sub Workbook_Open()
Call CreateRef_Library_Outlook
End Sub
Modul Modul1
Option Explicit
Sub CreateRef_Library_Outlook()
Dim ID As Object
On Error Resume Next
Set ID = ThisWorkbook.VBProject.References
ID.AddFromGuid "{00062FFF-0000-0000-C000-000000000046}", 7, 0
End Sub
Sub Delete_Library_Outlook()
Dim ID As Object
For Each ID In ThisWorkbook.VBProject.References
If ID.Name = "Outlook" Then
ThisWorkbook.VBProject.References.Remove ID
Exit Sub
End If
Next ID
End Sub
Modul Modul2
'Beispiel für Mail senden
Option Explicit
Sub MailSenden()
Dim MyOutApp As Outlook.Application
Dim MyMessage As Outlook.MailItem
Set MyOutApp = New Outlook.Application
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Hier kommt die Adresse rein"
.Subject = "hier der Betreff"
.Body = "Mein Text"
'.Attachments.Add 'für Anlagen
.Importance = 2 'Wichtigkeit hoch
.Display
'.Send 'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Gruß Tino