Thema Datum  Von Nutzer Rating
Antwort
Rot Absendedatum integrieren in Link auf Outlook-Mail
08.07.2022 14:42:46 Silias
NotSolved

Ansicht des Beitrags:
Von:
Silias
Datum:
08.07.2022 14:42:46
Views:
108
Rating: Antwort:
  Ja
Thema:
Absendedatum integrieren in Link auf Outlook-Mail

Hallo zusammen,

ich verwende folgendes Skript, um einen link auf eine Outlook-Mail zu generieren, welchen ich in einem externen Programm verwenden kann, um auf diese Mail zu referenzieren. Das funktioniert soweit sehr gut, nun würde ich das Skript gerne so anpassen, dass im Link auch noch das Absende-Datum mit angegeben wird. Die vermutlich relevante Code-Passage habe ich gelb markiert.

Könnt Ihr mir helfen, um welchen Code-Schnipsel ich diese Zeile erweitern muss, damit auch noch das Datum angegeben wird?

vielen Dank!

    Function SetClipBoardText(ByVal Text As Variant) As Boolean
SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function

'Adds a link to the currently selected message to the clipboard
Sub ObsidianLink()

Dim objMail As Object
Dim txtObsLink As String
Dim exito As Boolean

Dim doClipboard As New DataObject

'One and ONLY one message muse be selected
If Application.ActiveExplorer.Selection.Count <> 1 Then
MsgBox ("Select one and ONLY one message.")
Exit Sub
End If

Set objMail = Application.ActiveExplorer.Selection.Item(1)

If objMail.Class = olMail Then
txtObsLink = "[MESSAGE: " + objMail.Subject + " (" + objMail.SenderName + ")](outlook:" + objMail.EntryID + ")"

ElseIf objMail.Class = olAppointment Then
    txtObsLink = "[MEETING: " + objMail.Subject + " (" + objMail.Organizer + ")](outlook:" + objMail.EntryID + ")"
ElseIf objMail.Class = olTask Then
    txtObsLink = "[TASK: " + objMail.Subject + " (" + objMail.Owner + ")](outlook:" + objMail.EntryID + ")"
ElseIf objMail.Class = olContact Then
    txtObsLink = "[CONTACT: " + objMail.Subject + " (" + objMail.FullName + ")](outlook:" + objMail.EntryID + ")"
ElseIf objMail.Class = olJournal Then
    txtObsLink = "[JOURNAL: " + objMail.Subject + " (" + objMail.Type + ")](outlook:" + objMail.EntryID + ")"
ElseIf objMail.Class = olNote Then
    txtObsLink = "[NOTE: " + objMail.Subject + " (" + " " + ")](outlook:" + objMail.EntryID + ")"
Else
    txtObsLink = "[ITEM: " + objMail.Subject + " (" + objMail.MessageClass + ")](outlook:" + objMail.EntryID + ")"

End If

doClipboard.SetText txtObsLink
doClipboard.PutInClipboard

exito = SetClipBoardText(txtObsLink)

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Absendedatum integrieren in Link auf Outlook-Mail
08.07.2022 14:42:46 Silias
NotSolved