basti82
Mar 15, 2021
view1325
view2
0
Goto Top

Markierte Outlook-Termine per Mail verschicken

GermanQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 663175

Url: https://administrator.de/contentid/663175

Printed on: April 27, 2024 at 04:04 o'clock

2 Comments
Latest comment
Goto Top
Member: Henere
Henere Mar 15, 2021 at 13:36:14 (UTC)
Goto Top
Lade die mailadresse zu dem Termin ein ?
Teilnehmer hinzufügen.
Member: colinardo
colinardo Mar 15, 2021 updated at 15:19:55 (UTC)
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
GermanQuestionVB for ApplicationsDevelopment