Html 如何将Outlook的拖放上载功能添加到Web表单？
我正在寻找一种方法，允许用户以简单的方式将Outlook电子邮件上载到基于web的系统 我可以让它以手动方式为用户工作。他们可以将电子邮件从Outlook拖放到桌面，从而创建一个.msg文件。这非常好用，特别是如果电子邮件中有附件也存储在.msg文件中。然后可以使用传统的“输入类型=文件”html字段上载此文件 如果可能的话，我想简化这个过程。我见过一些网站，它们为硬盘上的文件提供了拖放上传功能 但是，我不确定是否存在允许直接从Outlook拖放的内容，该内容可以创建.msg文件或类似文件并处理文件上载。换句话说，这是一个解决方案，它省去了将电子邮件拖到桌面以创建用于上载的临时.msg文件的手动步骤Html 如何将Outlook的拖放上载功能添加到Web表单？,html,upload,outlook,drag-and-drop,Html,Upload,Outlook,Drag And Drop,我正在寻找一种方法，允许用户以简单的方式将Outlook电子邮件上载到基于web的系统 我可以让它以手动方式为用户工作。他们可以将电子邮件从Outlook拖放到桌面，从而创建一个.msg文件。这非常好用，特别是如果电子邮件中有附件也存储在.msg文件中。然后可以使用传统的“输入类型=文件”html字段上载此文件 如果可能的话，我想简化这个过程。我见过一些网站，它们为硬盘上的文件提供了拖放上传功能 但是，我不确定是否存在允许直接从Outlook拖放的内容，该内容可以创建.msg文件或类似文件并处理
这可能吗？如果可能，如何实现？所有用户目前都使用Windows XP，并拥有Outlook 2007、IE6或更高版本以及Firefox。后端服务器正在为相关应用程序运行Java（我们的编程人员使用ASP.NET w/C进行web开发），尽管我认为任何解决方案都将主要基于Flash或JQuery之类的客户端技术。但我不认为使用JQuery/JavaScript可以实现这一点-您可能有机会使用Flash之类的技术
作为替代方案，您是否可以创建一个简单的客户端应用程序，让他们可以在桌面上运行，这样他们就可以将消息拖到桌面上—这样，您就可以完全信任地运行，并执行您希望从该应用程序获取并上传文件的任何任务（这是我曾经使用过的一个文件扫描应用程序所使用的解决方案-我们有一个小窗口，用户可以将文件或电子邮件拖到该窗口上，开始上传到扫描存储。您最终是如何实现这一点的？我正在寻找一个类似的解决方案，但找不到太多，因此最终在Outlook中使用了一个VBA宏，用户可以单击该宏。）选择邮件时打开。然后将邮件作为.msg复制到其临时文件夹，然后提交到HTML表单 我已经在下面添加了我从各种网络来源（包括这里-对不起，我不记得保存链接）拼凑起来的代码，以防任何人也想要这样做 我确信它可以被优化等等，因为我对VBA很陌生（昨天！），但现在它可以完成这项工作，尽管有人认为我想做的是检查IE窗口是否存在，并添加一个新的选项卡，而不是每次单击它时打开一个新的浏览器
' Function to maximize IE window
Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Sub test()
'the mail we want to process
Dim objItem As Outlook.MailItem
'question for saving, use subject to save
Dim strPrompt As String, strname As String
'variables for the replacement of illegal characters
Dim sreplace As String, mychar As Variant, strdate As String
'put active mail in this object holder
Set objItem = Outlook.ActiveExplorer.Selection.Item(1)
'check if it's an email ... need to take a closer look cause
'gives an error when something else (contact, task) is selected
'because objItem is defined as a mailitem and code errors out
'saving does work, if you take care that a mailitem is selected
'before executing this code
If objItem.Class = olMail Then
'check on subject
If objItem.Subject <> vbNullString Then
strname = objItem.Subject
Else
strname = "No_Subject"
End If
strdate = objItem.ReceivedTime
'define the character that will replace illegal characters
sreplace = "_"
'create an array to loop through illegal characters (saves lines)
For Each mychar In Array(" ", "/", "\", ":", "?", Chr(34), "<", ">", "¦")
'do the replacement for each character that's illegal
strname = Replace(strname, mychar, sreplace)
strdate = Replace(strdate, mychar, sreplace)
Next mychar
'Prompt the user for confirmation
strPrompt = "Upload the email to CRM?"
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
Dim location As String
Dim tempPath As String
tempPath = IIf(Environ$("tmp") <> "", Environ$("tmp"), Environ$("temp"))
location = tempPath & "\" & strname & "-" & strdate & ".msg"
objItem.SaveAs location, olMSG
'upload to IE
UploadFile "http://intranet/test.php", location, "msgupload"
End If
End If
End Sub
'******************* upload - begin
'Upload file using input type=file
Sub UploadFile(DestURL As String, FileName As String, _
Optional ByVal FieldName As String = "File")
Dim sFormData As String, d As String
'Boundary of fields.
'Be sure this string is Not In the source file
Const Boundary As String = "---------------------------0123456789012"
'Get source file As a string.
sFormData = GetFile(FileName)
'Build source form with file contents
d = "--" + Boundary + vbCrLf
d = d + "Content-Disposition: form-data; name=""" + FieldName + """;"
d = d + " filename=""" + FileName + """" + vbCrLf
d = d + "Content-Type: application/upload" + vbCrLf + vbCrLf
d = d + sFormData
d = d + vbCrLf + "--" + Boundary + "--" + vbCrLf
'Post the data To the destination URL
IEPostStringRequest DestURL, d, Boundary
End Sub
'sends URL encoded form data To the URL using IE
Sub IEPostStringRequest(URL As String, FormData As String, Boundary As String)
'Create InternetExplorer
Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application")
'You can uncoment Next line To see form results
WebBrowser.Visible = True
'Send the form data To URL As POST request
Dim bFormData() As Byte
ReDim bFormData(Len(FormData) - 1)
bFormData = StrConv(FormData, vbFromUnicode)
' Submit message to intranet
WebBrowser.Navigate2 URL, , , bFormData, "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf
' Maximize window
apiShowWindow WebBrowser.hwnd, SW_MAXIMIZE
End Sub
'read binary file As a string value
Function GetFile(FileName As String) As String
Dim FileContents() As Byte, FileNumber As Integer
ReDim FileContents(FileLen(FileName) - 1)
FileNumber = FreeFile
Open FileName For Binary As FileNumber
Get FileNumber, , FileContents
Close FileNumber
GetFile = StrConv(FileContents, vbUnicode)
End Function
'******************* upload - end
<?php
if($_FILES['msgupload']){
move_uploaded_file($_FILES['msgupload']['tmp_name'], "./crm_uploads/".substr($_FILES['msgupload']['name'], 0 ,-24).".msg");
print("You are adding the email '".substr($_FILES['msgupload']['name'], 0, -24)."'");
print("<br />dated ".substr($_FILES['msgupload']['name'], -23, -4));
}
?>