如何使用vb.net获取当前发件人电子邮件ID

Question

我在vb.net中创建了一个基本表单，只有一个按钮。当我们点击按钮时，电子邮件将触发代码中提到的特定电子邮件ID。我希望在发送电子邮件时将当前发件人包含在电子邮件中。我想获取当前的发件人电子邮件地址。我使用下面的代码，但它不起作用。任何人都可以在这里提出建议。

Dim oApp As New Outlook.Application()
Dim oMsg As Outlook.MailItem =  DirectCast(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
Dim SenderEMailID = oMsg.SenderEmailAddress

Answer 1

要获取当前发件人电子邮件地址，请使用以下内容。它对我有用。

Dim oApp As New Outlook.Application()
Dim SenderEmailID
SenderEmailID = oApp.Session.CurrentUser.Address
Messagebox.show(SenderEmailID)