如何使用Outlook发送电子邮件添加标题电子邮件（在VB中） [英] how to add header email with Send Email from Outlook (in VB)

问题描述

如何使用Outlook发送电子邮件添加标题电子邮件（在VB中）

how to add header email with Send Email from Outlook (in VB)

Private Sub Button10_Click（sender As对象，e作为EventArgs）处理Button10.Click

        Dim sSubject As String

        Dim sBody As String

        Dim sTo As String

        Dim sCC As String

        Dim sFilename As String

        Dim sDisplayname As String



       昏暗的AppID为字符串

        AppID = LabelAppeal.Text



< span style ="color：＃333333; font-family：'Segoe UI'，'Lucida Grande'，Verdana，Arial，Helvetica，sans-serif; font-size：14px">  &NBSP; &NBSP; &NBSP; Dim oApp As Microsoft.Office.Interop.Outlook.Application

&NBSP; &NBSP; &NBSP; &NBSP; oApp = New Microsoft.Office.Interop.Outlook.Application



  &NBSP; &NBSP; &NBSP; Dim oMsg作为Microsoft.Office.Interop.Outlook.MailItem

&NBSP; &NBSP; &NBSP; &NBSP; oMsg = oApp.CreateItem（Microsoft.Office.Interop.Outlook.OlItemType.olMailItem）



&NBSP; &NBSP; &NBSP; &NBSP; oMsg.Subject = sSubject（"to DIGITAL"）

&NBSP; &NBSP; &NBSP; &NBSP; oMsg.Body = sBody（"亲爱的先生/女士，上诉ID的数据选择文件：&&appID&"准备就绪。"



  &NBSP; &NBSP; &NBSP; oMsg.To = sTo（" [e-mail]"）

&NBSP; &NBSP; &NBSP; &NBSP; oMsg.CC = sCC



< br style ="color：＃333333; font-family：'Segoe UI'，'Lucida Grande'，Verdana，Arial，Helvetica，sans-serif; font-size：14px">
  &NBSP; &NBSP; &NBSP; Dim strS As String = sFilename

  &NBSP; &NBSP; &NBSP; Dim strN As String = sDisplayname

  &NBSP; &NBSP; &NBSP;如果sFilename<> ""然后

  &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Dim sBodyLen As Integer = Int（sBody.Length）

&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Dim oAttachs作为Microsoft.Office.Interop.Outlook.Attachments = oMsg.Attachments

&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Dim oAttach作为Microsoft.Office.Interop.Outlook.Attachment



  &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; oAttach = oAttachs.Add（strS ,, sBodyLen，strN）



  &NBSP; &NBSP; &NBSP;结束如果



  &NBSP; &NBSP; &NBSP; oMsg.Send（）

  &NBSP; &NBSP; &NBSP; MessageBox.Show（" Email Send"，Me.Text，MessageBoxButtons.OK，MessageBoxIcon.Exclamation）



&NBSP; &NBSP;结束子

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim sSubject As String
        Dim sBody As String
        Dim sTo As String
        Dim sCC As String
        Dim sFilename As String
        Dim sDisplayname As String

        Dim AppID As String
        AppID = LabelAppeal.Text

        Dim oApp As Microsoft.Office.Interop.Outlook.Application
        oApp = New Microsoft.Office.Interop.Outlook.Application

        Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem
        oMsg = oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

        oMsg.Subject = sSubject("to DIGITAL")
        oMsg.Body = sBody("Dear Sir/Madam, Data Selection file for appealID:" & AppID & "is ready.")

        oMsg.To = sTo("[e-mail]")
        oMsg.CC = sCC


        Dim strS As String = sFilename
        Dim strN As String = sDisplayname
        If sFilename <> "" Then
            Dim sBodyLen As Integer = Int(sBody.Length)
            Dim oAttachs As Microsoft.Office.Interop.Outlook.Attachments = oMsg.Attachments
            Dim oAttach As Microsoft.Office.Interop.Outlook.Attachment

            oAttach = oAttachs.Add(strS, , sBodyLen, strN)

        End If

        oMsg.Send()
        MessageBox.Show("Email Send", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End Sub

如何使用此代码添加标题电子邮件

推荐答案

您需要在PS_INTERNET_HEADERS空间中设置字符串属性：

You need to set a string property in the PS_INTERNET_HEADERS space:

oMsg.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/string/{00020386-0000-0000-C000-000000000046}/X-MyCustomHeader", "Some Value")

这篇关于如何使用Outlook发送电子邮件添加标题电子邮件（在VB中）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！