Text For Binary As #nFile
strText = String(LOF(nFile), " ")
Get #nFile, , strText
Close #nFile
'http header
vHeaders = "Content-Type: multipart/form-data, boundary=AaB03x" & vbCrLf
'assemble the body. send one field and one file
strBody = _
"--AaB03x" & vbCrLf & _
"Content-Disposition: attachment; name=""uploaded_file_1& ...
Verfasst am: 25.11.2009, 17:19 Aufrufe: 702
Application, objNameSpace As Outlook.NameSpace
Dim objMailordner As Outlook.MAPIFolder, objGAINMailordner As Outlook.MAPIFolder
Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items
Dim objEMail As Outlook.MailItem
Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern
Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script aus ...