Von Excel nach Outlook
11.09.2003 11:46:30
Bigi
hoffe hier geholfen zu werden *g*.
Habe folgendes VBA geschrieben welches mir ermöglicht aus Excel per Makro einen Termin in Outlook zu senden. Habe aber noch folgende Probleme:
1. Ich habe eine Zelle mit Datum und eine mit Zeit, wenn ich unter .Start beide Zellen angebe und die mit & trenne, dann zeigt mir VBA einen Fehler an. Wie kann ich das vermeiden?
2. In Outlook kann man ja noch Notizen eingeben. Wie lautet der Befehl dafür?
3. Wie kann ich die Kategorie vorgeben?
Vielen Dank für eure Anregungen
Gruß bigi
Private Sub Outlook()
Dim Termin As Outlook.AppointmentItem
Set Termin = Outlook.Application.CreateItem(olAppointmentItem)
With Termin
.Subject = "Termin von " & Cells(UserForm3.Tag, 27) & " mit " & Cells(UserForm3.Tag, 10) & " " & Cells(UserForm3.Tag, 9)
.Location = Cells(UserForm3.Tag, 11) & ", " & Cells(UserForm3.Tag, 12) & " " & Cells(UserForm3.Tag, 13)
.Start = Cells(UserForm3.Tag, 25) hier ist der Fehler mit der Zeit --> & Cells(UserForm3.Tag, 26)
.Duration = 120
.Display
End With
MsgBox "Termin wurde übertragen!"
End Sub
Anzeige