打开带附件的电子邮件客户端

问题描述：

我正在寻找一种方法来打开安装了计算机的默认电子邮件客户端（Outlook或groupwise）并附加文件。用户将在电子邮件客户端中输入其他信息。打开带附件的电子邮件客户端

尝试：

Dim SendFrom As MailAddress = New MailAddress("[email protected]") 
Dim SendTo As MailAddress = New MailAddress("[email protected]") 
Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo) 
MyMessage.Subject = "Hola" 
MyMessage.Body = "Body:" 
'Dim attachFile As New Attachment("C:\test.txt") 
'MyMessage.Attachments.Add(attachFile) 
Dim emailClient As New SmtpClient("yahoo.com") 
emailClient.Timeout = Int32.MaxValue 
emailClient.Send(MyMessage) 
TextBox1.Text = "Message Sent"

你需要证明你已经尝试过的东西，和社区会尽力帮助你。所以SO不会为你做你的工作。 http://*.com/faq#questions – djv 2013-03-07 16:11:02

我试试这个，但它不支持附件System.Diagnostics.Process.Start（“mailto：”＆“j”＆“？Subject =”＆“jola”＆“ ＆Body =“＆”txtBody“＆”＆Attach =“＆”c：\ test.txt“） – user1725253 2013-03-07 16:42:40

此外，但我想允许用户使用它的电子邮件客户端：Dim SendFrom As MailAddress = New MailAddress（”test @ email.com “）昏暗的SendTo作为MailAddress =新MailAddress（” [email protected]“）昏暗MyMessage MAILMESSAGE作为=新MAILMESSAGE（SendFrom，的SendTo） MyMessage.Subject = ”HOLA“ MyMessage。 Body =“Body：” 'Dim attachFile As New Attachment（“C：\ test.txt”） 'MyMessage.Atta chments.Add（attachFile）昏暗emailClient作为新SmtpClient（ “yahoo.com”） emailClient.Timeout = Int32.MaxValue emailClient.Send（MyMessage） TextBox1.Text = “消息发送” – user1725253 2013-03-07 16:44:56

答

做到这一点，正确的方法是使用MAPI

这是VB6的一些代码：

Public Function MailtoWithAttachment(ByVal Recipient As String, ByVal Subject As String, ByVal Body As String, ByVal Attachment As String) As Boolean 
Dim Message As MAPIMessage 
Dim RecipientA() As Byte 
Dim Recipients(0) As MapiRecip 
Dim AttachmentA() As Byte 
Dim Attachments(0) As MapiFile 
Dim SubjectA() As Byte 
Dim BodyA() As Byte 

Dim Result As Long 

    'Set the recipient 
    RecipientA = StrConv(Recipient & vbNullChar, vbFromUnicode) 
    Recipients(0).lpName = VarPtr(RecipientA(0)) 
    Recipients(0).RecipClass = MAPI_TO 
    Message.RecipCount = 1 
    Message.lpRecips = VarPtr(Recipients(0)) 

    'Add the attachment 
    AttachmentA = StrConv(Attachment & vbNullChar, vbFromUnicode) 
    Attachments(0).lpPathName = VarPtr(AttachmentA(0)) 
    Attachments(0).Position = -1 
    Message.FileCount = 1 
    Message.lpFiles = VarPtr(Attachments(0)) 

    'Subject 
    SubjectA = StrConv(Subject & vbNullChar, vbFromUnicode) 
    Message.lpSubject = VarPtr(SubjectA(0)) 

    'And body 
    BodyA = StrConv(Body & vbNullChar, vbFromUnicode) 
    Message.lpNoteText = VarPtr(BodyA(0)) 

    'Try and send the email 
    Result = MAPISendMail(0, 0, ByVal VarPtr(Message), MAPI_DIALOG, 0&) 
    'Return false if there was a problem (ignoring canel) 
    MailtoWithAttachment = Result = 0 Or Result = 1 
End Function

这将使用中的声明，MAPI32.bas和大量使用unicode转换为ANSI转换和结构体中的指针。

请注意，并非所有的邮件客户端都支持此功能，对此，唯一的解决方案是使用每个客户端的自定义界面。

非常感谢您的帮助， – user1725253 2013-03-07 20:32:50

我能够使代码在一台计算机上工作，但是当我将其安装在其他计算机上时，我收到以下错误：MAPISendMail失败！一般MAPI失败[2]，当它试图打开我的客户。什么可能导致这个问题？ – user1725253 2013-03-07 20:33:59

@ user1725253我不知道。不受支持的邮件客户端？或者一些错误翻译成VB.Net？ – Deanna 2013-03-08 08:40:26

答

取决于您使用的开发环境。看看你是否可以构造一个.EML文件。并开始一个新的进程来加载文件。只要您的电子邮件客户端与.EML扩展名关联，此功能就可以工作。

在这里你可以找到一个.NET环境的例子。

Open default mail client along with a attachment

打开带附件的电子邮件客户端

相关推荐