Problem with OnAcceptMessage...

[Rainer]

Hello, is it possible, in the function: OnAcceptMessage to add an additional RecipientCC or RecipientBCC Name?

Kind regards

[Bill48105]

Hi,
You have the message so you can edit it if desired, just use the mail path & edit the EML in the script before releasing it for delivery.

As far as smtp to/from check out:
http://www.hmailserver.com/forum/viewto ... 20&t=15301
That show examples of viewing/changing the to/from used for DELIVERY vs in the text of the mail use when VIEWING it.
Bill

[mattg]

Or via the COM API you can add recipients (I think to the SMTP envelope only), add a CC header, or even copy the message and send the copy to only a set recipient.

[Rainer]

Hello Bill, I really wanted to do this without editing the email. I tried using AddRecipient/AddRecipientBCC to add a new additional Recipient. The following error returns: Wrong number of arguments or invalid property assignment: 'oMessage.AddRecipient' - Line: 674 Column: 24 - Code: (null) '

Kind regards

[mattg]

Are you doing it in the form

oMessage.AddRecipient(Name, Address)

Can you please show your AddRecipient line

[Rainer]

Hello Bill, here are the lines:

oMessage.AddRecipient "Postmaster@MyDomain.de"
oMessage.Save
oMessage.RefreshContent

Or

oMessage.AddRecipientBCC "Postmaster@MyDomain.de"
oMessage.Save
oMessage.RefreshContent

Kind regards

[mattg]

Hey Rainer,

(It's Matt not Bill btw)

oMessage.AddRecipient "Postmaster@MyDomain.de"
oMessage.Save
oMessage.RefreshContent

should be

Code: Select all

oMessage.AddRecipient "Postmaster", "Postmaster@MyDomain.de"
oMessage.Save
oMessage.RefreshContent

Matt

[Rainer]

Hello Matt, the problem is solved:

If IsArray(MyUnerwuenschtArray) Then
For MyOuterRow = 0 To UBound(MyUnerwuenschtArray)
If Len(MyUnerwuenschtArray(MyOuterRow)) > 0 Then
If InStr(1, LCase(oMessage.Subject), LCase(MyUnerwuenschtArray(MyOuterRow)), vbTextCompare) <> 0 Then
'
oMessage.AddRecipient "", "Postmaster@MyDomain.de"
oMessage.Save
Exit For
ElseIf InStr(1, LCase(MyBody), LCase(MyUnerwuenschtArray(MyOuterRow)), vbTextCompare) <> 0 Then
'
oMessage.AddRecipient "", "Postmaster@MyDomain"
oMessage.Save
Exit For
End If
End If
Next
End If


Kind Regards

[mattg]

Excellent!!

Glad you got it sorted

[Bill48105]

Cool you got it Rainer thanks to MATTG helping. Btw does AddRecipient add the header to the email too or you were just wanting to add another SMTP recipient?
Bill

[Rainer]

Good morning Bill!
Yes, the extra receiver is included in the header.

Kind regards