Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/email/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 我可以从PictureBox图像添加Outlook附件吗?_Vb.net_Email_Outlook_Attachment - Fatal编程技术网

Vb.net 我可以从PictureBox图像添加Outlook附件吗?

Vb.net 我可以从PictureBox图像添加Outlook附件吗?,vb.net,email,outlook,attachment,Vb.net,Email,Outlook,Attachment,我的VB.NET图片框中有一个图像。我想将其附加到通过Outlook发送的电子邮件中,而无需将其保存到驱动器的任何位置。有可能做这样的事吗 以下是我到目前为止所做的(摘自): 当我注释掉附件行时,它工作得非常好,否则它会抛出一个错误。我还没有找到任何关于以这种方式附加电子邮件的真正好的信息,或者如果可能的话。如果我不能这样做,我计划将文件保存为C:\TEMP\中的某个随机(ish)名称,但如果我不必担心这一点,那就更好了 感谢您的帮助以下是您的选择: 此处的源信息也有助于: Public Cla

我的VB.NET图片框中有一个图像。我想将其附加到通过Outlook发送的电子邮件中,而无需将其保存到驱动器的任何位置。有可能做这样的事吗

以下是我到目前为止所做的(摘自):

当我注释掉附件行时,它工作得非常好,否则它会抛出一个错误。我还没有找到任何关于以这种方式附加电子邮件的真正好的信息,或者如果可能的话。如果我不能这样做,我计划将文件保存为C:\TEMP\中的某个随机(ish)名称,但如果我不必担心这一点,那就更好了

感谢您的帮助

以下是您的选择:

此处的源信息也有助于:

Public Class email
    Dim app As Microsoft.Office.Interop.Outlook.Application
    Dim appNameSpace As Microsoft.Office.Interop.Outlook._NameSpace
    Dim memo As Microsoft.Office.Interop.Outlook.MailItem
    Dim outbox As Microsoft.Office.Interop.Outlook.MAPIFolder

    Public Sub New(ByVal attachment)
        Try
            app = New Microsoft.Office.Interop.Outlook.Application
            appNameSpace = app.GetNamespace("MAPI")
            appNameSpace.Logon(Nothing, Nothing, False, False)

            memo = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
            memo.To = "notmy@realemailaddress.com"
            memo.Subject = "Testing"
            memo.Body = "Hello there"
            memo.Attachments.Add(attachment, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
            memo.Send()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

    End Sub


End Class