Hello All,
I’m customizing the mail template for our internal use;
By default, all emails should include no bcc and a copyto a given address.
I tried to add this address to the “EnterCopyTo” field by adding a function called just the “Call Me.m_noteUIMemo.Send()” in the QuerySave of the CoreEmailClasses Declaration.
The function is :
Sub AddCopyTo()
Dim copyt As Variant
If Me.m_noteMemo.Hasitem(“EnterBlindCopyTo”) Then
Call Me.m_noteMemo.Replaceitemvalue"EnterBlindCopyTo",“”)End If
copyt = Me.m_noteMemo.GetItemValue(“EnterCopyTo”)
Redim Preserve copyt(Ubound(copyt)-Lbound(copyt)+1)
copyt(Ubound(copyt))= “emailtocopyto”
Call Me.m_noteMemo.Replaceitemvalue(“EnterCopyTo”,copyt)End Sub
I noticed in the querysend event of the memo that the entercopyto is empty.
Could you help please ?
thanks in advance