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