2

顧客に電子メールを送信する VBA スクリプトを作成しています。私は以前に同様のシステムを作成しましたが、ここでの違いは、これらの電子メールが一般的な From フィールドを使用することです (したがって、受信者には会社の名前のみが表示され、送信者の個人は表示されません)。これは手動で簡単に行うことができます。

現在、私は一般的なで SendUsingAccount をいじっています。しかし、このマシン自体の実際のアカウントではないため、そのコードの使用方法がわかりません。私はそれへの代理人アクセス権を持っています。

では、誰かが VBA を使用して他の人に代わって電子メールを送信する方法を教えてもらえますか?

(または、アカウントのユーザー名とパスワードを持っています。そのため、メールを送信するためにそのアカウントにログインする必要がある場合は、それもできます)

4

1 に答える 1

3

MailItem.SentOnBehalfOfName プロパティを確認してください。代理で送信するメールボックス/プロファイルへの代理アクセスが必要です。

例:

Sub SendEmailOnBehalf()
  Dim msg As Outlook.MailItem

  Set msg = Outlook.CreateItem(olMailItem)
  With msg
    .SentOnBehalfOfName = "Jimmy's boss' name"
    .Subject = "Email from someone else"
    .Body = "Hello" & vbNewLine 
  End With
End Sub

電子メールはフィールドで言うでしょFrom Jimmy Pena on behalf of Jimmy's BossFrom:

于 2012-07-16T23:13:20.043 に答える