Hallo Zusammen
Ich habe vor einiger Zeit ein Formular als Aufgabenanfrage eingerichtet:
Sub CADAufgabenanfrage()
Dim myOlApp As New Outlook.Application
Dim myItem01 As Outlook.TaskItem
Set myItem01 = myOlApp.CreateItemFromTemplate("\\PROG08\cad\Aufgabenanfrage.oft)
myItem01.Display
End Sub
Die Funktion wurde im gesamten Betrieb mit Begeisterung angenommen, sodass ich das Formular durch einige Funktionen erweitern wollte. Als Alles fertig war, bekam ich die Meldung, dass die Makros verloren gehen, wenn ich die Anfrage als OFT-Datei abspeichere.
Also habe ich versucht, die Aufgabenanfrage aus einem öffentlichen Ordner heraus aufrufen. Hat auch alles sehr schön funktioniert. Leider Bekomme ich beim Versenden die Meldung, dass ich das Formular in meinen persönlichen Formularen abspeichern und von
dort aus aufrufen soll, da dieser Vorgang von einem Öffentlichen Pfad aus nicht möglich ist.
Im Nächsten Schritt möchte ich das Formular aus dem Öffentlichen Ordner heraus in einen Privaten Ordner kopieren und von dort aus aufrufen. meiner Meinung nach sollte das so Aussehen:
Sub CADAA()
Dim myItems As Outlook.Items
Dim myItem As Outlook.TaskItem
Dim myfolder As Outlook.Folder
Dim myNewItem As Outlook.TaskItem
Dim myPrivateFolder As Outlook.Folder
Dim myNameSpace As Outlook.NameSpace
Set myfolder = Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("CAD_Aufgaben").Folders _("Auftragsmitteilung")
Set myItems = myfolder.Items
Set myItem = myItems.Add("IPM.Task.CAD_Aufgabenanfrage")
myItem.Display
Set myNameSpace = Application.GetNamespace("MAPI")
Set myPrivateFolder = myNameSpace.GetDefaultFolder(olFolderTasks)
Set myNewItem = myItem.Copy
myNewItem.Move myPrivateFolder
myNewItem.Display
End Sub
Leider bekommen ich hier beim Debuggen die Meldung "Typen unverträglich". Bis hierhin hab ich ja alles verstanden, aber wo liegt hier das Problem? Wäre wirklich super, wenn irgendein Superbrain (ihr alle) dem Dummi (mir) helfen könnte
Viele Grüße
