basti82
Goto Top

Markierte Outlook-Termine per Mail verschicken

Hallo zusammen,

ich würde gerne in Outlook Termine per Mail verschicken.

Idealerweise sollte es so ablaufen:

Ich markiere in Outlook im Kalender einen oder mehrere Termine und kann diese dann per Tastenkombination oder Button an eine bestimmte Mailadresse senden.

Gibt es dazu Ideen oder Lösungen?

LG Basti

Content-ID: 663175

Url: https://administrator.de/forum/markierte-outlook-termine-per-mail-verschicken-663175.html

Ausgedruckt am: 23.12.2024 um 01:12 Uhr

Henere
Henere 15.03.2021 um 14:36:14 Uhr
Goto Top
Lade die mailadresse zu dem Termin ein ?
Teilnehmer hinzufügen.
colinardo
colinardo 15.03.2021 aktualisiert um 16:19:55 Uhr
Goto Top
Servus Basti,
ich würde das auch so machen wie @Henere schon vorschlägt. Wenn dir das so nicht möglich oder zu unbequem ist wäre auch ein vorheriges Markieren und dann über Kontextmenü > "Weiterleiten" eine weitere Methode. Ist das auch nicht wie gewünscht hier mal noch etwas VBA.
Da du nicht schreibst ob alle in einer oder jeden Termin in einer separaten Mail poste ich einfach mal beide Beispiele:

back-to-topAlle markierten Appointments in einer Mail
Sub SendSelectedAppointmentsInOneMail()
    Dim recipientMail As String, itm As Object
    recipientMail = "user@domain.tld"  
    If ActiveExplorer.Selection.Count > 0 Then
        With Application.CreateItem(olMailItem)
            .SUBJECT = "Anbei die Termine."  
            .To = recipientMail
            For Each itm In ActiveExplorer.Selection
                .Attachments.Add itm
            Next
            '.Display  
            .Send
        End With
    Else
        MsgBox "Es sind keine Termine markiert, bitte markieren vorher mindestens einen Termin!", vbExclamation  
    End If
End Sub
back-to-topFür jedes markierte Appointment eine separate Mail
Sub SendSelectedAppointmentsInSeperateMails()
    Dim recipientMail As String, itm As Object
    recipientMail = "user@domain.tld"  
    If ActiveExplorer.Selection.Count > 0 Then
        For Each itm In ActiveExplorer.Selection
            With itm.ForwardAsVcal
                .To = recipientMail
                '.Display  
                .Send
            End With
        Next
    Else
        MsgBox "Es sind keine Termine markiert, bitte markieren vorher mindestens einen Termin!", vbExclamation  
    End If
End Sub
Beide Methoden kannst du in das Ribbon als Button platzieren dann im Outlook-Explorer die entsprechenden Termine markieren und dann über den Button aufrufen. (Mailadresse natürlich vorher anpassen)

Viel Spaß

Grüße Uwe