Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WAS MACHE ICH NUR FALSCH !!!! AAAAHH

WAS MACHE ICH NUR FALSCH !!!! AAAAHH
christian
Hello!
was mace ich falsch...AAAAAAAAAAAAAAAAhhhhhhhhhhh
ich möchte mit dem u.g. code einen termin von excel ins outlook sende...
der Termin liegt in zelle A1 (Beispiel 01.05.04), oulook trägt den termin
jedoch immer auf heute ein!
Bitte HILFE!!!!! DANKE
Christian

Sub Excel_Control_Termin_nach_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
'Hier beginnen die Termine
Range("A1") = Termin
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Termininfo
.Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
'Zusätzlicher Text
.Body = ""
'ort
.Location = ""
'Uhrzeit
.Start = "Termin" & "10:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
.Duration = "5"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine an Outlook übertragen!"
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: WAS MACHE ICH NUR FALSCH !!!! AAAAHH
moe
Müsste so gehen
kann es leider nicht testen
Gruss
moe
ändern
Range("A1") = Termin
Termin = Range("A1")
.Start = "Termin" & "10:00"
.Start = Termin
Ne klappt leider nicht
23.04.2004 16:00:13
christian
ne klappt nicht, trotzdem danke für deine mühe
gruss - christian
AW: WAS MACHE ICH NUR FALSCH !!!! AAAAHH
Viet
Hallo Christian,
Probier das bitte, es hat bei mir so geklappt.

Sub Excel_Control_Termin_nach_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
'Hier beginnen die Termine
Termin = Range("A1")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Termininfo
.Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
'Zusätzlicher Text
.Body = ""
'ort
.Location = ""
'Uhrzeit
.Start = Termin & " 10:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
.Duration = "5"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine an Outlook übertragen!"
End Sub

Anzeige
AW: WAS MACHE ICH NUR FALSCH !!!! AAAAHH
23.04.2004 16:02:42
christian
YES! Super vielen, vielen Dank für eure Hilfe...
Beste Grüße - Christian
AW: WAS MACHE ICH NUR FALSCH !!!! AAAAHH
23.04.2004 21:37:50
Dieter
Hallo Viet, Christian und Moe!
Habe den Code gerade selbst in meine Kalk-Dateien eingebaut!
Der absolute Hammer! Zeitersparnis ENORM !!
Besten Dank!
Gruß
Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige