Outlook 365 Help me create a Macro to make some received emails into tasks?

[sami52226]

Hello, because I often miss all of the tasks I have to do I wanted to automate some things in outlook.
Every time I have to do something new I get an email in a standardized form. I would like to have a macro that automatically takes the Mail with a specific subject, copies a specific part of text (that is always in the same place) makes this the title of the task and sets the start date, the date of receiving the email and the due date to one week from receiving the email. Also nice would be that the email is attached to the task.

At the moment in the email is also a Due Date, but this is not working at the moment so there is written none at the time, but in the future it will work, and it would be nice to have the due date automatically set to the due date in the mail.

I hope someone can help me.

BR
Samuel

 

[zHZDrCJdHWfr]

May not be exactly what you are looking for but this should get you started. I pulled the bulk of this code from a post Diane made a while ago:

Sub ConvertEmailToTask()
''''Original Code From:
''''Create Task or Appointment and Insert Selected Text

'You need the GetCurrentItem Function from: Outlook VBA: Work with Open Item or Selected Item

Dim objTask As Outlook.TaskItem
Dim objMail As Outlook.MailItem
Dim oItem As Object

' Add reference to Word library in VBA Editor, Tools, References
Dim objWord As Word.Application
Dim objInsp As Inspector
Dim objDoc As Word.Document
Dim objSel As Word.Selection
''''Dim NewMC As

On Error Resume Next

Set objMail = GetCurrentItem()
Set objTask = Application.CreateItem(olTaskItem)

If objTask.MessageClass <> "IPM.Task.GTD Task" Then
objTask.MessageClass = "IPM.Task.GTD Task"
End If



CopyAttachments objMail, objTask

If Not objMail Is Nothing Then
If objMail.Class = olMail Then
Set objInsp = objMail.GetInspector

If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
With objSel
'use wholestory to copy the entire message body
.WholeStory
.Copy

End With

End If
End If
End If

Set objInsp = objTask.GetInspector
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Windows(1).Selection

''''''''''''''''''''''CopyAttachments oItem, oTask

With objTask

'.MessageClass = "IPM.Task.GTD Task"
.Subject = objMail.Subject
'.DueDate = objMail.ReceivedTime + 3
'.StartDate = objMail.ReceivedTime + 2


objSel.PasteAndFormat (wdFormatOriginalFormatting)
'.Categories = "From Email"
' .Save
.Display

End With

'objMail.Categories = "Task" & objMail.Categories

Set objTask = Nothing
Set objMail = Nothing
Set objSel = Nothing
Set objInsp = Nothing
Set objWord = Nothing
End Sub


Sub CopyAttachments(objSourceItem, objTargetItem)

Dim fso As Object
Dim fldTemp As Object
Dim strPath As String
Dim objAtt As Attachment
Dim strFile As String

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
strPath = fldTemp.Path & "\"
For Each objAtt In objSourceItem.Attachments
strFile = strPath & objAtt.FileName
objAtt.SaveAsFile strFile
objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
fso.DeleteFile strFile
Next

Set fldTemp = Nothing
Set fso = Nothing
End Sub