computeraddict
Nieuwe gebruiker
- Lid geworden
- 4 sep 2011
- Berichten
- 1
Hoi,
ik gebruik een script om elke mail die ik verzend ook automatisch naar een andere emailaccount te verzenden. Dit is gemakkelijk vanwege diverse locaties waar ik werkzaam ben. Omdat ik niet wil dat de geadresseerden dit zien gebruik ik het BCC veld hiervoor.
Maar nu wil ik dit scriptje uitbreiden zodat deze alleen nog maar een BCC doet als de email naar een specifieke geadresseerde gaat. Helaas weet ik niet hoe dit moet en ik hoop dat iemand mij hier mee kan helpen. Het script ziet er als volgt uit:
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "SomeEmailAddress@domain.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
Wellicht dat er hier een slimme programmeur is die hier zo even een paar regeltjes aan toevoegt?
groet,
een veelvuldige mailer.
ik gebruik een script om elke mail die ik verzend ook automatisch naar een andere emailaccount te verzenden. Dit is gemakkelijk vanwege diverse locaties waar ik werkzaam ben. Omdat ik niet wil dat de geadresseerden dit zien gebruik ik het BCC veld hiervoor.
Maar nu wil ik dit scriptje uitbreiden zodat deze alleen nog maar een BCC doet als de email naar een specifieke geadresseerde gaat. Helaas weet ik niet hoe dit moet en ik hoop dat iemand mij hier mee kan helpen. Het script ziet er als volgt uit:
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "SomeEmailAddress@domain.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
Wellicht dat er hier een slimme programmeur is die hier zo even een paar regeltjes aan toevoegt?
groet,
een veelvuldige mailer.
