Makro: Datum von heute
heute
kann mir jemand mitteilen, wie bei folgendem Makro in dem Betreff (subject) automatisch das heutige Datum eingetragen wird, ohne dies manuell über eine Input-Box tun zu müssen?
Sub Mail_AM_SettlementsRentengeschaefte()
Dim olapp As Object
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "am-settlements@deka.de"
.CC = ""
.BCC = ""
.Subject = "Direktgeschäfte Renten vom "
.body = "Hallo," & vbNewLine & vbNewLine & "anbei die Rentengeschäfte von heute." & _
vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & "Ralf Köhler" & vbNewLine & _
vbNewLine & "Tel.: 1184" & vbNewLine & "EMail: ralf.koehler.ext@fundmaster.de"
.attachments.Add "I:\AMK_64\641402\64140203\1_DIRECT_TRADES\Mailsendung\Renten\Renten.xls"
.attachments.Add "I:\AMK_64\641402\64140203\1_DIRECT_TRADES\Mailsendung\Renten\Renten.pdf"
.display
End With
Set olapp = Nothing
End Sub
Ralf
Anzeige