kareltje001
Gebruiker
- Lid geworden
- 20 apr 2013
- Berichten
- 5
Hallo allemaal
Ik heb de onderstaande code om een mail te kunnen openen, het zet de datum van vandaag in de onderwerp regel, het voegt twee categorieën toe en de mail kan meteen bewerkt worden.
Nu wil ik alleen nog dat er een extra regel word toegevoegd, dat de cursor dus niet naast de eerste regel staat maar er boven.
Er zijn genoeg voorbeelden te vinden over toevoegen van een extra regel in de body maar ik krijg het niet werkend in mijn code.
Iemand die me kan helpen?
Groet, Karel
Ik heb de onderstaande code om een mail te kunnen openen, het zet de datum van vandaag in de onderwerp regel, het voegt twee categorieën toe en de mail kan meteen bewerkt worden.
Nu wil ik alleen nog dat er een extra regel word toegevoegd, dat de cursor dus niet naast de eerste regel staat maar er boven.
Er zijn genoeg voorbeelden te vinden over toevoegen van een extra regel in de body maar ik krijg het niet werkend in mijn code.
Iemand die me kan helpen?
Groet, Karel
Code:
Sub add_date_en_open()
Dim expl As Explorer
Dim itm As Object
Dim insp As Inspector
Dim cbb As Office.CommandBarButton
Set expl = Application.ActiveExplorer
If expl.Selection.Count = 1 Then
Set itm = expl.Selection(1)
If itm.Class = olMail Then
itm.Display
Set insp = itm.GetInspector
Set cbb = insp.CommandBars.FindControl(, 5604)
If Not cbb Is Nothing Then
cbb.Execute
End If
End If
End If
Set insp = Nothing
Set itm = Nothing
Set cbb = Nothing
Set expl = Nothing
Dim MItem As MailItem
On Error GoTo ExitPos
For Each MItem In ActiveExplorer.Selection
MItem.Subject = " (" & Format(Date, "MM-DD-YY") & ") " & MItem.Subject
Next
Dim mailMsg As MailItem
For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
mailMsg.categories = "Team 1,Tom"
mailMsg.Save
Next
Dim theEmail As MailItem, oInspector As Inspector
Set oInspector = Application.ActiveInspector
Set theEmail = oInspector.CurrentItem
ExitPos:
End Sub