Attribute VB_Name = "modCreate" Option Explicit Sub CreateHTMLMail() Dim outApp As Application Dim outMail As MailItem Set outApp = Application Set outMail = outApp.CreateItem(olMailItem) With outMail .BodyFormat = olFormatHTML .HTMLBody = "

Überschrift

" & _ "Der Mailtext wird in HTML dargestellt!" .Display .To = "Mailadresse" .CC = "Kopie an Mailadresse" .Subject = "TEST" End With Set outMail = Nothing Set outApp = Nothing End Sub Sub CreateTask() Dim outApp As Application Dim outTask As TaskItem Set outApp = Application Set outTask = outApp.CreateItem(olTaskItem) With outTask .Subject = "Aufgabentitel" .DueDate = "02.01.2022" .Role = "Name" 'zuständig ist ... .Save End With Set outTask = Nothing Set outApp = Nothing End Sub Sub CreateDate() Dim outApp As Application Dim outDate As AppointmentItem Dim outRegAtt As Recipient 'erforderliche Teilnehmer Dim outOptAtt As Recipient 'optionale Teilnehmer Dim outResAtt As Recipient 'Ressourcen Set outApp = Application Set outDate = outApp.CreateItem(olAppointmentItem) With outDate .MeetingStatus = olMeeting .Subject = "Status Meeting" .Location = "Raum 123" .Start = "02.01.2022 13:30" .Duration = 60 Set outRegAtt = outDate.Recipients.Add("Hans Müller") outRegAtt.Type = olRequired Set outOptAtt = outDate.Recipients.Add("Gerd Schmidt") outRegAtt.Type = olOptional .Display .Send End With Set outRegAtt = Nothing Set outOptAtt = Nothing Set outResAtt = Nothing Set outDate = Nothing Set outApp = Nothing End Sub