Outlook markieren und einer Katogerie zuweisen
08.07.2013 21:15:59
Rolf
ich habe einen Code der Schreibt mir einen Kontakt in Outlook, dies funktioniert einwandfrei. Nun möchte ich aber diesem Kontakt eine Katogerie zuweisen, weiss aber nicht wie ich das bewerkstelligen muss (soll) Für Euch Spezialisten ist dies sicher ein Pappenstiehl.
Gruss
Rolf
Hier noch der entsprechende Code
Sub Terminanlegen1_click()
Dim OutApp As Object 'Dim OutApp As Outlook.Application
Dim apptOutApp As Object
Range("d5").Select 'Hier beginnen die Termine
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 10:00" 'Datum wird aus der Zelle genommen
.Subject = Range("d3") & " " & "Hausübergabe" 'Betreff für Termin
.Body = "Hausübergabe Heubödeli" 'Zusätzlicher Text im Termininfo
.Location = "Clubhaus Heubödeli" 'Cluhaus Heubödeli
.Duration = "30" 'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
.ReminderMinutesBeforeStart = 1440 'Erinnerung in Minuten
.ReminderPlaySound = True 'mit oder ohne Sound
.ReminderSet = True 'Erinnerung
.Save 'Termin speichern
End With
ActiveCell.Offset(1, 0).Select 'Nächste Zeile auswählen
Set apptOutApp = Nothing 'Variablen leeren
Set OutApp = Nothing 'Variablen leeren
MsgBox "Übergabe Termin gespeichert..." 'Popup mit Erfolgsinfo
End Sub