QTP，发送邮件地址

Question

我正在使用 QTP outlook 对象模型发送电子邮件。

这是一段代码。

'Create an object of type Outlook
   Set objOutlook = CreateObject("Outlook.Application")
   Set myMail = objOutlook.CreateItem(0)

'Set the email properties
   myMail.To = "some_mail_id@gmail.com"
   myMail.CC = "some_mail_id_2@gmail.com; some_other_mail@yahoo.com" 'Sending mails to multiple ids
   myMail.BCC = "" 'If BCC is not required, then this line can be omitted
   myMail.Subject = "Sending mail from MS Outlook using QTP"
   myMail.Body= "Test Mail Contents"
   myMail.Attachments.Add("D:\Attachment.txt") 'Path of the file to be attached

'Send the mail
   myMail.Send

现在我需要检索发件人电子邮件地址并将其存储在环境变量中。 myMail.Sender 或 myMail.sendermailaddres 他们都对我不起作用。

Answer 1

以下代码将为您提供您连接到 Outlook 的用户有权访问的第一个电子邮件地址：

objOutlook.Session.Accounts.Item(0)

我使用循环查找我要发送的帐户，如下所示：

iAccount = 0
For iLoop = 1 To oOutlook.Session.Accounts.Count
    If UCase(Trim(oOutlook.Session.Accounts.Item(iLoop))) = UCase(Trim(EmailData("SendFrom"))) Then
        iAccount = iLoop
        Exit For
    End If
Next

其中 EmailData 是一个 Dictionary 对象，其中包含我用于邮件项目的项目。创建邮件项目时，我使用 Set oMailItem.SendUsingAccount = oOutlook.Session.Accounts.Item(iAccount) 指定应从中发送的帐户。

QTP，发送邮件地址

QTP, send mailer address

email

outlook

vba

qtp

send