Die Revolution des Programmierens: Künstliche Intelligenz im Fokus

In diesem Beitrag werde ich über meine eigenen Erfahrungen mit dem Einsatz von künstlicher Intelligenz im Bereich der Programmierung berichten. Anhand eines konkreten Beispiels werde ich zeigen, wie man mit Hilfe von KI-Technologien einfache Programmieraufgaben auch ohne Programmierkenntnisse erfolgreich lösen kann.

In diesem Fall hat mir die in der Suchmaschine Bing enthaltene KI von Microsoft (Copilot) weitergeholfen.

VBA-Skript für Outlook: E-Mail per Knopfdruck im Dateisysten speichern

Der Hauptgrund für die Entwicklung und Verwendung eines solchen Skripts liegt in der Effizienzsteigerung und der Automatisierung der Datensicherung. E-Mails enthalten oft wichtige Informationen und Dokumente, die sicher und systematisch archiviert werden müssen. Ein VBA-Skript ermöglicht es, diese E-Mails schnell und automatisch in einem organisierten Dateisystem zu speichern, wodurch sowohl Zeit gespart als auch die Zugänglichkeit und die Sicherheit der Informationen verbessert werden. Dies ist besonders wichtig in Geschäftsumgebungen, wo die schnelle Wiederherstellung und einfache Verwaltung von E-Mails essentiell ist. Im Falle von Krankheit oder Urlaub können auch Vertreter auf die E-Mails zugreifen. Durch das vorangestellte Datum im Format Jahr-Monat-Tag werden die E-Mails automatisch chronologisch sortiert.

Um ein solches VBA-Skript zu erstellen habe ich folgenden Prompt in den Bing – Copilot eingegeben:

Bing-Prompt: „Schreibe ein VBA-Skript für die deutsche Version von Outlook 2019. Mit diesem Skript soll die aktuell ausgewählte E-Mail in einen vorher definierten Ordner abgespeichert werden. Dabei soll das Erhalten-Datum an den Anfang des Dateinamens gesetzt werden. Zwischen Jahr, Monat und Tag jeweils ein Bindestrich.“

Sub SaveSelectedEmail()
Dim objNamespace As NameSpace
Dim objMail As MailItem
Dim strFolderPath As String
Dim strFileName As String

' Setzen Sie den Pfad zum Speichern der E-Mails
strFolderPath = "C:\IhrOrdner\"

Set objNamespace = Application.GetNamespace("MAPI")

' Überprüfen Sie, ob eine E-Mail ausgewählt ist
If TypeName(Application.ActiveWindow) = "Inspector" Then
Set objMail = Application.ActiveInspector.CurrentItem
ElseIf TypeName(Application.ActiveWindow) = "Explorer" Then
Set objMail = Application.ActiveExplorer.Selection.Item(1)
End If

If Not objMail Is Nothing Then
' Setzen Sie den Dateinamen als Empfangsdatum + Betreff
strFileName = Format(objMail.ReceivedTime, "yyyy-mm-dd") & " " & objMail.Subject

' Ersetzen Sie ungültige Zeichen im Dateinamen
strFileName = Replace(strFileName, "/", " ")
strFileName = Replace(strFileName, "\", " ")
strFileName = Replace(strFileName, ":", " ")
strFileName = Replace(strFileName, "?", " ")
strFileName = Replace(strFileName, "*", " ")

' Speichern Sie die E-Mail als .msg-Datei
objMail.SaveAs strFolderPath & strFileName & ".msg", olMSG
End If

Set objMail = Nothing
Set objNamespace = Nothing
End Sub

Hinweis der Bing-KI: Bitte beachten Sie, dass Sie den Code in der VBA-Umgebung (Alt + F11) von Outlook einfügen müssen. Stellen Sie sicher, dass Sie die erforderlichen Anpassungen vornehmen, bevor Sie den Code ausführen. Es ist auch wichtig zu beachten, dass das automatische Speichern von E-Mails in einem lokalen Ordner möglicherweise gegen die Datenschutzrichtlinien Ihres Unternehmens verstößt. Bitte überprüfen Sie dies, bevor Sie den Code verwenden.

erzeugten Code in die VBA-Umgebung in Outlook einfügen & in die Schnellstartleiste einbinden

• Bei der Variable „strFolderPath“ den korrekten Pfad zu dem eigenen Verzeichnis einfügen