?
=?iso-8859-1?Q?Cyrill_H=E4feli?=
I want creat a task in a special form at a special exchangefolder
with witch code, can i say, the definition of the Forms in this Folder?
i have the code:
' Deklaration
' ***********
Dim m_outlApp As Object
Dim m_outlNam As Object
Dim m_objfolder As Object
Dim m_items As Outlook.TaskItem
Dim item As Object
' Gibt den Mapi Ordner und alle Einstellungen an
' **********************************************
Set m_outlApp = New Outlook.Application
Set m_outlNam = m_outlApp.GetNamespace("MAPI")
Set m_objfolder = m_outlNam.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner") _
..Folders("PS").Folders("PSI")
Set m_items = m_objfolder.Items.Add()
' Speichert eingegeben Daten in die entsprechenden Aufgaben Felder
' ****************************************************************
With m_items
.StartDate = txtFällig
.Categories = Me.cmbKategorie.Text
.UserProperties("txtAbteilung") = Me.cmbAbteilung.Text
.Save
End With
with witch code, can i say, the definition of the Forms in this Folder?
i have the code:
' Deklaration
' ***********
Dim m_outlApp As Object
Dim m_outlNam As Object
Dim m_objfolder As Object
Dim m_items As Outlook.TaskItem
Dim item As Object
' Gibt den Mapi Ordner und alle Einstellungen an
' **********************************************
Set m_outlApp = New Outlook.Application
Set m_outlNam = m_outlApp.GetNamespace("MAPI")
Set m_objfolder = m_outlNam.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner") _
..Folders("PS").Folders("PSI")
Set m_items = m_objfolder.Items.Add()
' Speichert eingegeben Daten in die entsprechenden Aufgaben Felder
' ****************************************************************
With m_items
.StartDate = txtFällig
.Categories = Me.cmbKategorie.Text
.UserProperties("txtAbteilung") = Me.cmbAbteilung.Text
.Save
End With