|
naja das hilft mir nicht wirklich weiter..
habs jetzt soweit das iwas etwas im richtigen Ordner, mit richtigem Namen und als .msg-Datei gespeichert wird.
Jedoch weiß ich nicht was das für eine Mail ist, da die Datei nur 1kB hat und nicht geöffnet werden kann.
habs hier mal mein code
Dim StrBody As String
Dim StrBody2 As String
Dim OldBody As String
'E-Mail Text
StrBody = "Sehr geehrter Herr X," & "<br><br><br>" & _
"es sind neue Dokumente im Dropboxordner abgelegt worden:" & "<br><br>" & _
" \Dropbox\" & "<br><br>"
StrBody2 = "Bitte bestätigen Sie uns den Download und löschen die Dateien aus der Dropbox."
'Neue E-Mail erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.Display
.Recipients.Add "xxx.xx@gmail.com"
.cc = "xxx.xx@natus.de"
.Subject = TextBox4.Text
'Signatur zwischenspeichern
OldBody = .htmlbody
.htmlbody = StrBody & RangetoHTML(rng) & "<br><br>" & StrBody2 & OldBody
'Mail speichern
.Save 'speichert die Mail unter Entwürfe
'.SaveAs _ 'speichert die Mail auf dem Laufwerk
'Projekt & "\" & TextBox4 & ".msg", _
'olMSG
End With
|