如何在Vb6中使用cdo.message添加自定義郵件頭

Question

我試圖使用下面的代碼在VB6中添加自定義郵件頭。但它沒有工作。 任何人都可以幫我嗎？

Dim lobj_cdomsg As CDO.Message 
Set lobj_cdomsg = New CDO.Message 

'Add the Project Reference Miscrosoft CDO WINDOWS FOR 2000 
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "servername" 
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30 
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2 
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1 
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = "username" 
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password" 
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = "587" 
lobj_cdomsg.Configuration.Fields("urn:schemas:mailheader:X-MC-Tags") = "CKSR001" 
'lobj_cdomsg.Fields("urn:schemas:mailheader:X-MC-Tags") = "CKSR002" 
lobj_cdomsg.Configuration.Fields.Update 

lobj_cdomsg.To = "to user" 
lobj_cdomsg.From = "from" 
lobj_cdomsg.Subject = "FROM VB6 CODSYS" 
lobj_cdomsg.TextBody = "New Mail" 
lobj_cdomsg.TextBody = "New Mail" 
lobj_cdomsg.Send 
Set lobj_cdomsg = Nothing 

Answer 1

你必須添加 「甕：架構：mailheader：X -...」 頭爲Message對象，而不是Message.Configuration的一個領域。

發送消息之前添加以下兩行：（並刪除非工作線）

lobj_cdomsg.Fields("urn:schemas:mailheader:X-MC-Tags") = "CKSR001" 
lobj_cdomsg.Fields.Update 

那麼它應該工作。