送信者アカウントから電子メールアドレスを取得

Question

ログインしているOutlookアカウントからユーザーの電子メールアドレスを「読み取り」し、このマクロを有効にすると電子メールを送信する方法はありますか？

Sub MailSenden() 

Dim olApp  As Object 
Dim olOldBody As String 

Rem Email erstellen 
Set olApp = CreateObject("Outlook.Application") 

With olApp.CreateItem(0) 
    .GetInspector.Display 
    olOldBody = .htmlBody 
    .To = "carsten.asdf@xxx.yy" 
    .Subject = "Testformular" 
    .Body = "Das ist eine e-Mail" & Chr(13) & _ 
      "Viele Grüße..." & Chr(13) & Chr(13) 
    .Attachments.Add "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv" 
    .Attachments.Add ActiveWorkbook.FullName 
    .Send 

End With 

Kill "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv" 


End Sub 

「送信元」の電子メールアドレスを取得する必要があります。

EDIT1：SMTPのためのソリューション

Msgbox   
CreateObject("Outlook.Application").GetNamespace("MAPI").Session.CurrentUser. _ 
AddressEntry.GetExchangeUser.PrimarySmtpAddress 

Answer 1

を現在のユーザの電子メールアドレスを取得するには、次のコードを使用してください。

With olApp 
MsgBox .GetNamespace("MAPI").CurrentUser.Address 
End With 

どのアドレスからメールを送信するかを選択するには、このコードを使用してください。この方法では、"FROM"タブが作成された電子メールに挿入されています。

With olApp.CreateItem(0) 
    .SentOnBehalfOfName = "YourEmail@yourdomain.com" 
    .GetInspector.Display 
    olOldBody = .htmlBody 
    .To = "carsten.asdf@xxx.yy" 
    .Subject = "Testformular" 
    .Body = "Das ist eine e-Mail" & Chr(13) & _ 
      "Viele Grüße..." & Chr(13) & Chr(13) 
    .Attachments.Add "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv" 
    .Attachments.Add ActiveWorkbook.FullName 
    .Send 

End With 

あなたは、コードのWith olApp.CreateItem(0)行の後.SentOnBehalfOfName = "YourEmail@yourdomain.com"権利を置く必要があることに注意してください。

Answer 2

は両方が動作するはずMailItem.Session.CurrentUser.AddressまたはMailItem.SenderEmailAddressを試してみてください。あなたはこれを見やって、SMTPにExchangeアカウントから変換する必要があり

：

How can I get the sender email address using Outlook.MailItem in VB.NET?