Bgiorno, vorrei poter fare in modo che quando da una casella di posta inviano una mail in automatico venga inoltrata in un'altra mail nel campo CCN.
Ho provato questo codice
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient, strMsg As String, res As Integer, strBcc As String
On Error Resume Next
' La seguente variabile deve contenere un indirizzo SMTP valido,
' o un nome che possa essere correttamente risolto tramite la
' Rubrica, e che verrà usato come destinatario aggiuntivo.
' --> RICORDARSI DI INSERIRE UN INDIRIZZO VALIDO! <--
strBcc = "utente@dominio.it"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
' Se la risoluzione dell'indirizzo presenta problemi, viene segnalato all'utente.
If Not objRecip.Resolve Then
strMsg = "Impossibile risolvere l'indirizzo in Ccn. Inviare comunque il messaggio?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Risoluzione indirizzo Bcc")
' Se la risposta è negativa, l'invio viene annullato.
If res = vbNo Then Cancel = True
End If
Set objRecip = Nothing
End Sub
Ma non mi funziona...
Rispondi quotando