taken verplaatsen.

[markwat]

via Excel wil ik in taken met groepen oa taken, afspraak maken, offerte maken, offerte gemaakt, werk nog uitvoeren, materialen binnen. C00 in een andere groep hebben, maar hoe kan ik iets naar een andere groep weg schrijven?
in To Do heb ik verschillende groepen .

Sub taak_nieuw1() 'werkt alleen foldermap is altijd Taken
With CreateObject("Outlook.Application").CreateItem(3)

C00 = Sheets("InvoerSheet").Range("G17").Value      ' controle 6
.Subject = C00
.Save
End With
End Sub

en als tweede wil ik graag dat C00 dan weer naar een andere map verplaatst kan worden.

Sub taken_zoeken_verplaatsen()
On Error Resume Next

C00 = Sheets("InvoerSheet").Range("G17").Value 

'c01 = "nieuwe controle"
'c00 = "[Subject] ='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(13).Items.Find(c00).move .GetDefaultFolder(3)

Do Until err.number<>0
.GetDefaultFolder(13).Items.FindNext.move .GetDefaultFolder(3)
Loop
End With
End Sub

 

[SjonR]

ik zou je aanbevelen een voorbeeldbestand te plaatsen.

 

[markwat]

SjonR

To Do staat buiten Excel.
Voor de rest moet het gedaan worden met deze formules.