Mail automatisch in Ordner verschieben
Ralf_Frankfurt
suche eine Lösung, die die gesendete Mail nicht in den Ordner 'send items', sondern in dem Ordner 'Produktion ab 1.9.2010' ablegt.
Vielen Dank und freundliche Grüße
Ralf
Sub Mail_AM_SettlementsAktiengeschaefte()
Dim olapp As Object
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "am-settlements@deka.de;orderdesk-aktien@deka.de"
.CC = "udo.schmidt-mohr@deka.de;thomas.herbst@deka.de" 'torsten.seidlich@deka.de;'
.BCC = ""
.Subject = "Direktgeschäfte Aktien vom " & Format(Date, "DD.MM.YYYY")
.body = "Hallo," & vbNewLine & vbNewLine & "anbei die Aktiengeschäfte von heute." & _
vbNewLine & vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & "Ralf Köhler" & vbNewLine & _
vbNewLine & "Tel.: 1184" & vbNewLine & "EMail: ralf.koehler.ext@deka.de"
.attachments.Add "I:\AMK_64\641402\64140203\1_DIRECT_TRADES\Aktien\Aktien.zip"
.display
End With
Set olapp = Nothing
End Sub
Anzeige