abilitare le opzioni sviluppo in outlook<\/p>\n
copiare in applicazioni sotto send item e prima di end sub il codice<\/p>\n
Dim objRecip As Recipient<\/em> ‘ #### USER OPTIONS ####<\/em> Set objRecip = Item.Recipients.Add(strBcc)<\/em> Set objRecip = Nothing<\/em><\/p>\n <\/p>\n chiudere e riaprire outlook<\/p>\n","protected":false},"excerpt":{"rendered":" abilitare le opzioni sviluppo in outlook copiare in applicazioni sotto send item e prima di…<\/p>\n
\nDim strMsg As String<\/em>
\nDim res As Integer<\/em>
\nDim strBcc As String<\/em>
\nOn Error Resume Next<\/em><\/p>\n
\n‘ address for Bcc — must be SMTP address or resolvable<\/em>
\n‘ to a name in the address book<\/em>
\nstrBcc = “MAIL@DOMINIO”<\/em><\/p>\n
\nobjRecip.Type = olBCC<\/em>
\nIf Not objRecip.Resolve Then<\/em>
\nstrMsg = “Could not resolve the Bcc recipient. ” & _<\/em>
\n“Do you want still to send the message?”<\/em>
\nres = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _<\/em>
\n“Could Not Resolve Bcc Recipient”)<\/em>
\nIf res = vbNo Then<\/em>
\nCancel = True<\/em>
\nEnd If<\/em>
\nEnd If<\/em><\/p>\n