Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Termine nach Outlook übertragen

Betrifft: Termine nach Outlook übertragen von: Thorsten
Geschrieben am: 18.08.2004 15:42:29

Hallo,
ich suche eine Möglichkeit aus einem Excel-Sheet termine in mein Outlook zu übertragen und diese dann auch von dort aus an andere Personen zu verschicken.
Ist dies möglich?
Und wenn ja, wie??

Danke
für die Hilfe(n)

Greetz
Thorsten

  


Betrifft: AW: Termine nach Outlook übertragen von: Jens
Geschrieben am: 19.08.2004 11:17:18

Hallo Thorsten,

ich habe Folgendes in meiner Sammlung gefunden:

Grüße,
Jens
**********************************************

Sub TermineVonExcelNachOutlookÜbernehmen()

Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
   Set objOutlook = CreateObject("Outlook.Application")
    Range("C12").Select
    Do Until ActiveCell.Value = ""
     Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
     With apptOutlook
        .Start = ActiveCell.Value
        .Subject = ActiveCell.Offset(0, 1).Value
        .Location = ActiveCell.Offset(0, 2).Value
        .Duration = ActiveCell.Offset(0, 3).Value
        .Body = ActiveCell.Offset(0, 4).Value
        .RequiredAttendees = ActiveCell.Offset(0, 5).Value
        .ReminderMinutesBeforeStart = 60
        .ReminderPlaySound = True
        .ReminderSet = True
        .Save
     End With
     ActiveCell.Offset(1, 0).Select
    Loop
    MsgBox "Termine an Outlook übertragen!"
    Set apptOutlook = Nothing
    Set objOutlook = Nothing
End Sub



  


Betrifft: AW: Termine nach Outlook übertragen von: Thorsten
Geschrieben am: 20.08.2004 12:44:47

DAnke ich werd es mal versuchen, aber so wie das aussieht werden dadurch nur die Termine nach Oulook verschoben, aber kann ich die auch aus Excel dierekt an entsprechende eMail adressen versenden?

Gruß
Thorsten


 

Beiträge aus den Excel-Beispielen zum Thema "Termine nach Outlook übertragen"