Hallo zusammen, seit einiger Zeit versuche ich ein Excel Makro zu programmieren, welches ToDo's aus einer Tabelle an die jeweilige Person via Outlook verschickt.
Die Verbindung von Excel zu Outlook ist mir bereits gelungen - nun jedoch mein Problem.
Es sollte wie folgt ablaufen: Die Person gibt über eine Inputbox ein Namenskürzel ein, welches sich in Spalte "F" befindet. Nach der Eingabe sollen "Thema" " Beschreibung" und "Bemerkung" die sich jeweils in Spalte "B" - "C" - und "I" befinden automatisch an Outlook übertragen werden. Ich hoffe jemand kann mein Problem nachvollziehen und mir weiterhelfen :) Mein Code sieht bisher so aus:
Sub Excel_Sheet_via_Outlook_Senden()
Set Xl = GetObject(, "Excel.Application")
Dim MyMessage As Object, MyOutApp As Object
Dim SavePath As String
Dim AWS As String
With ActiveWorkbook
AWS = .FullName
End With
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.to = InputBox("Geben Sie bitte Ihre Email-Adresse ein!")
.Subject = "ToDo Liste"
Danke und Grüße im Voraus
Jakob