MS Outlook VBA Bcc csak egy adott fiókból

MS Outlook VBA Bcc csak egy adott fiókból
2016-10-21T09:54:18+02:00
2016-11-15T10:01:21+01:00
2022-12-04T04:10:38+01:00
Mohinder
Sziasztok!

Remélem tudtok segíteni, VBA-ban még nem vagyok túl gyakorlott.

A helyzet a következő: adott egy Outlook 4db email fiókkal. Új levél írásánál automatikus Bcc címeket adok a levélhez VBA segítségével. Az internet segítségével barkácsoltam egy kódot, ami működik.

A probléma a következő: szeretnék a kódba egy feltételt beépíteni, hogy csak akkor rakjon Bcc címzetteket, ha egy adott fiókból küldeném a levelet (pl.: ha lilafing@gmail.com-ról küldöm, legyenek bcc-k). Tulajdonképpen a feladóra szűrjön rá a "ha" feltétel.

A segítőkész válaszokat előre is köszönöm! :)
Jelenlegi kódom:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "elsobccmasolat@level.hu"
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
strBcc2 = "emasodikbccmasolat@level.hu"
Set objRecip = Item.Recipients.Add(strBcc2)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Nem sikerült titkos címzetteket megadni. " & _
"Továbbra is el akarja küldeni az üzenetet?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd