Hallo Experten,
bisher versende ich ein Arbeitsblatt aus Excel so:
ThisWorkbook.Activate
Worksheets(2).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope.Item
  .SentOnBehalfOfName = "BSH-IT-OPERATION"
  .To = strEmpfänger
  .Importance = 2
  .Subject = strBetreff
  .Display
End With
Nun möchte ich einen Termin als Anhang mitschicken, den sich die User in ihren Kalender ziehen können.
Dazu habe ich im Internet diesen Code gefunden:
Dim OutApp As Object, apptOutApp As Object
Dim olm As Object
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
   .Start = "11.4.2010"
   .Subject = "Test"
   .ForwardAsVcal
Set olm1 = .ForwardAsVcal
End With
With olm1
   Dim ClpObj As DataObject
   Set ClpObj = New DataObject
   Worksheets(1).Range("A1:F7").Copy
   ClpObj.GetFromClipboard
   .Body = ClpObj.GetText(1)
   .Subject = "test Appoinment"
   .Recipients.Add "Test"
   .Display
End With
Das funktioniert soweit, aber die Daten aus dem Arbeitsblatt werden unformatiert in das Mail übernommen.
Wie kann ich es anstellen, dass mein Arbeitsblatt 1:1 in das Mail als Body übernommen wird und der Termin als Anhang mitgeschickt wird?
Danke und Gruß
Uppe