Here is a little sample that calls a function each time a new e-mail is
coming in (there may be expectings). The method "CreateTaskFromMail" is
almost still empty. What kind of data do you like to use for the task?
'<DieseOutlookSitzung>
Private WithEvents m_oItems As Outlook.Items
Private Sub Application_Startup()
Set m_oItems =
Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub m_oItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
CreateTaskFromMail Item
End If
End Sub
Public Sub CreateTaskFromMail(oMail As Outlook.MailItem)
Dim oTask As Outlook.TaskItem
Set oTask = Application.CreateItem(olTaskItem)
With oTask
.Subject = oMail.Subject
.Save
End With
End Sub
'</DieseOutlookSitzung>