如何通过outlook自动发送电子邮件时从电子邮件地址进行设置

Question

在传统的vb6程序中,我使用下面的代码使用完整版本的outlook(而不是outlook express)发送电子邮件.效果很好.

现在,用户希望'from:'地址对于不同的用途是不同的,以便在回复电子邮件时,响应将显示在Outlook中的用户收件箱中.目前,电子邮件来自主要的企业电子邮件地址.

我觉得这很容易解决; 我只需要在OutMail对象中设置.from属性,但是看起来OutMail对象中没有'.from'属性.(它可能被称为其他东西？)

所以在这一点上我想知道它现在是如何工作的,没有.from指定,我假设用户在outlook中设置了多个电子邮件帐户,它使用主要电子邮件用于业务,而不是单个用户.

如何使用此技术指定来自电子邮件地址？

Dim mOutlookApp As Object
    Set mOutlookApp = GetObject("", "Outlook.application")

    Dim olNs As Object
    Set olNs = mOutlookApp.GetNamespace("MAPI")
    olNs.Logon

    Dim OutMail As Object
    Set OutMail = mOutlookApp.CreateItem(0)

    'Set the To and Subject lines.  Send the message.
    With OutMail
        .To = txtTo
        .CC = txtCC
        .Subject = txtSubjext
        .HTMLBody = txtBody & vbCrLf

        Dim myAttachments As Object
        Set myAttachments = .Attachments
        vAttach = Split(mAttachments, ",")
        For i = 0 To UBound(vAttach)
            myAttachments.add vAttach(i)
        Next i


        Dim myFolder As Object
        Set myFolder = olNs.GetDefaultFolder(5) 'olFolderSent
        Set .SaveSentMessageFolder = myFolder

        StatusBar1.Panels(1).Text = "Status: Sending"

        .send
    End With

Answer 1

如果您关心的是回复转到右侧邮箱,请将该电子邮件地址设置为回复地址.你可以使用Mailtem.ReplyRecipients.Add.