QTP, Adresse senden

Question

Ich sende eine E-Mail mit dem QTP Outlook Objektmodell.

Hier ist das Stück Code.

'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 

Jetzt brauchte ich den Absender E-Mail-Adresse & speichern es in einer Umgebungsvariablen abzurufen. myMail.Sender oder myMail.sendermailaddres beide arbeiten mich nicht.

Answer 1

Der folgende Code wird Ihnen die erste E-Mail-Adresse des Benutzers, den Sie Outlook verbunden bist hat Zugriff auf:

objOutlook.Session.Accounts.Item(0) 

ich eine Schleife verwenden, das Konto ich aus wie diese senden möchten zu finden:

wobei EmailData ein Dictionary-Objekt ist, das die Elemente enthält, die ich für die Post verwende. Beim Erstellen der E-Mail verwende ich Set oMailItem.SendUsingAccount = oOutlook.Session.Accounts.Item(iAccount), um den Account anzugeben, von dem aus gesendet werden soll.