PC Review Forums Newsgroups Microsoft Outlook Microsoft Outlook VBA Programming Create Task from Email message

Reply

Create Task from Email message

 
Thread Tools Rate Thread
Old 11-11-2004, 08:39 PM   #1
mandrews@compucom.com
Guest
 
Posts: n/a
Default Create Task from Email message


Can I create a task automatically from an incomming email
message using the rules wizard?
  Reply With Quote
Old 16-11-2004, 07:00 AM   #2
Michael Bauer
Guest
 
Posts: n/a
Default Re: Create Task from Email message

Unfortunatly you cannot, but you could do that with your own VBA code.

--
Viele Grüße
Michael Bauer


"mandrews@compucom.com" <anonymous@discussions.microsoft.com> wrote in
message news:5fd101c4c82e$7a0930d0$a301280a@phx.gbl...
> Can I create a task automatically from an incomming email
> message using the rules wizard?


  Reply With Quote
Old 18-11-2004, 07:10 PM   #3
=?Utf-8?B?RW1haWwgdG8gVGFzaw==?=
Guest
 
Posts: n/a
Default Re: Create Task from Email message

Is this code difficult code. I am not familar with writting VBA code so is it
possible to have the you write this code for me?

"Michael Bauer" wrote:

> Unfortunatly you cannot, but you could do that with your own VBA code.
>
> --
> Viele Grüße
> Michael Bauer
>
>
> "mandrews@compucom.com" <anonymous@discussions.microsoft.com> wrote in
> message news:5fd101c4c82e$7a0930d0$a301280a@phx.gbl...
> > Can I create a task automatically from an incomming email
> > message using the rules wizard?

>
>

  Reply With Quote
Old 18-11-2004, 07:56 PM   #4
Michael Bauer
Guest
 
Posts: n/a
Default Re: Create Task from Email message

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>


--
Viele Grüße
Michael Bauer


"Email to Task" <Email to Task@discussions.microsoft.com> wrote in
message news:BEA206AE-C021-4A4A-A096-C2C64701BFDC@microsoft.com...
> Is this code difficult code. I am not familar with writting VBA code

so is it
> possible to have the you write this code for me?
>
> "Michael Bauer" wrote:
>
> > Unfortunatly you cannot, but you could do that with your own VBA

code.
> >
> > --
> > Viele Grüße
> > Michael Bauer
> >
> >
> > "mandrews@compucom.com" <anonymous@discussions.microsoft.com> wrote

in
> > message news:5fd101c4c82e$7a0930d0$a301280a@phx.gbl...
> > > Can I create a task automatically from an incomming email
> > > message using the rules wizard?

> >
> >


  Reply With Quote
Old 29-11-2004, 12:51 PM   #5
=?Utf-8?B?Q3JlYXRlIFRhc2sgZnJvbSBFbWFpbCBtZXNzYWdl
Guest
 
Posts: n/a
Default Re: Create Task from Email message

This a call center and some problem are escalated because agents are not
available. I would like to take the subject line a of a particular message
from a specific mailbox (TM-099-PSST Escalations) and create the Task. I will
try to write this from the sample you sent. If you can think of anything else
please let me know.

"Michael Bauer" wrote:

> 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>
>
>
> --
> Viele Grüße
> Michael Bauer
>
>
> "Email to Task" <Email to Task@discussions.microsoft.com> wrote in
> message news:BEA206AE-C021-4A4A-A096-C2C64701BFDC@microsoft.com...
> > Is this code difficult code. I am not familar with writting VBA code

> so is it
> > possible to have the you write this code for me?
> >
> > "Michael Bauer" wrote:
> >
> > > Unfortunatly you cannot, but you could do that with your own VBA

> code.
> > >
> > > --
> > > Viele Grüße
> > > Michael Bauer
> > >
> > >
> > > "mandrews@compucom.com" <anonymous@discussions.microsoft.com> wrote

> in
> > > message news:5fd101c4c82e$7a0930d0$a301280a@phx.gbl...
> > > > Can I create a task automatically from an incomming email
> > > > message using the rules wizard?
> > >
> > >

>
>

  Reply With Quote
Reply



Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off