如何将一个邮件放入Outlook的收件箱?

Question

'请参考一下：
Public Function SendMail(Sendto As String, Subject As String, _
           Text As String, AttachPath As String, AttachName As String) As BooleanDim olapp As New Outlook.Application
Dim oitem As MailItemDim SubKey As String, ValueName As String
Dim Data As Long, Result As Long
Dim ret As Long
frmMain.lblStatus.Caption = "正在连结Internet ..."
SubKey = "System\CurrentControlSet\Services\RemoteAccess"
ret = RegOpenKey(HKEY_LOCAL_MACHINE, SubKey, Result)
If ret = 0& Then
ValueName = "Remote Connection"
re:
ret = RegQueryValueEx(Result, ValueName, 0&, 0&, ByVal Data, 0&)
ret = RegQueryValueEx(Result, ValueName, 0&, 0&, Data, Len(Data))
If ret = 0& And Data <> 0 Then
   'MsgBox "在线！"
Else
   'MsgBox "当前未连接。"
   InternetAutodial INTERNET_AUTODIAL_FORCE_UNATTENDED, 0
   GoTo re:
End If
RegCloseKey (Result)
End IffrmMain.lblStatus.Caption = "正在连结发送邮件 ..."
Set oitem = olapp.CreateItem(0)
With oitem
 .Subject = Subject   '//邮件主题
 .To = Sendto '//收件人
.Body = Text   '//邮件正文
.Attachments.Add AttachPath, , , AttachName
.Send        '//发送邮件
End WithIf Err.Number = 0 Then
   SendMail = True
   Else
   MsgBox Err.Description
   SendMail = False
End If
End Function

Answer 1

看来是我表述的不太清楚了，我的意思是接收到一组描述邮件的字符串，现在想把这些字符串重新还原成outlook里的邮件形式并存放到收件箱当中以便于后续处理。

Answer 2

感谢您使用微软产品。 可以考虑下面的方法：1. 建立一个新的mailitem。2. 使用已有的数据(主题，接收人…)来填充这个MailItem的一些属性。3. 使用MailItem的Move方法，把这个MailItem移到收件箱里。希望对您有帮助！ 本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。 为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

Answer 3

楼上说的这个方法不可行，如果只是简单地CREATITEM 和 MOVE，那么等于是把一封你所纂写的邮件移动到了INBOX，而且打开该邮件时，其内容为可编辑，而收到的邮件则是内容不可编辑，除非你想转发或者回复。