Question

在旧版vb6程序中，我使用以下代码使用完整版的Outlook（而非Outlook Express）发送电子邮件。效果很好。

现在，用户希望将“发件人：”地址用于不同用途，以便在回复电子邮件时将响应显示在Outlook用户收件箱中。目前，来自的电子邮件是主要的企业电子邮件地址。

我认为这很容易解决；我只需要在OutMail对象中设置.from属性，但是在OutMail对象中似乎没有'.from'属性。（它可能被称为其他名称？）

因此，在这一点上，我想知道它现在如何工作，没有指定.from，并且我假设用户在Outlook中设置了多个电子邮件帐户，它使用的是企业的主要电子邮件，而不是单个用户。 / p>

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

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来做到这一点。

使用Outlook自动发送电子邮件时如何从电子邮件地址设置

1 个答案: