per Makro AddIn-Modul starten
Universal
ich habe schon den halben Tag gegooglet, aber nichts gefunden ... :-(
Per Makro lege ich den Anhang einer Mail in einem temporären Ordner ab ("C:\Temp"). Anschließend wird die gespeicherte Excel-Datei geöffnet - soweit so gut. :-)
Nun würde ich gern auf ein bereis geladenes AddIn verweisen. Das AddIn ist aktiviert und geladen, nur weiß ich nicht, wie ich code-technisch auf ein Modul bzw. die dazugehörige Prozedur zugreifen kann. In der manuellen Ausführung, nutze ich sonst das automatisch erstellte Menü, jedoch würde ich mir diesen Klick gern sparen.
bisheriger Ansatz bzw. Ausschnitt des Outlook-Makros:
Sub Mail_bearbeiten()
Dim objExcel As New Excel.Application
Dim olApp, OlMails, OlExpl, OlFolder As Object
Dim OlMail As MailItem
Dim MailAtt As Attachment
'***Mail mit Anhang wird geprüft
cSubject = ""
cSubject = "WERT_" & Format(Date + 1, "yyyymmdd")
If cSubject = Mid(mSubject, 1, 15) & Format(Date + 1, "yyyymmdd") Then
cMails = OlMails.Count
cAtt = OlMails(x).Attachments.Count
Set OlMailAtt = OlMail.Attachments
'speichert alle Mail-Anhang temporär im Ordner C:\Temp
For i = 1 To cAtt
AttName = OlMails(x).Attachments.Item(i).FileName
If C:\Temp\ & AttName) = "" Then
OlMailAtt.Item(i).SaveAsFile "C:\Temp\" & AttName
TempSched = "C:\Temp\" & AttName
With objExcel
Workbooks.Open TempSched
.Visible = True
End With
'hier soll nun auf das AddIn zugegriffen werden
Application.Run "AddIn-Name.Module1.Prozedur1"
MsgBox "Job erledigt.
End If
Next i
End Sub
Ich danke euch vielmals für eure Hilfe!!!
Viele Grüße
Uni