0

以下のようなものを使用して、DKIM 署名のヘッダーを追加することは可能ですか? 私が読んでいるものから、それはそうではないように見えます..なぜですか？

Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Const cdoSendUsingPort = 2

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "abc"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

With iMsg
Set .Configuration = iConf
.To = recipient
.From = "foo@bar.com"
.Subject = "subject"
.HTMLBody = "body"
.Send
End With
4

1 に答える 1

0

既に署名がある場合は、それをiMsgオブジェクトの Fields プロパティに追加できます。「返信先」と「領収書を返す」アドレスを設定するために、以前に同様のことをしました。

.Fields("urn:schemas:mailheader:disposition-notification-to") = "test@example.com"
.Fields("urn:schemas:mailheader:return-receipt-to") = "test@example.com"

カスタムヘッダーを追加するために同じことを行うことができます。あなたの場合はDKIM署名です。オブジェクトは次のiMsgようになります。

With iMsg
  Set .Configuration = iConf
  .To = recipient
  .From = "foo@bar.com"
  .Subject = "subject"
  .HTMLBody = "body"
  .Fields("urn:schemas:mailheader:DKIM-Signature") = "YOUR_SIGNATURE_HERE"
  .Send
End With

それが役立つことを願っています。

于 2012-05-23T19:10:24.023 に答える