{"id":126,"date":"2013-12-13T08:24:27","date_gmt":"2013-12-13T08:24:27","guid":{"rendered":"http:\/\/tastaturkind.ch\/?p=126"},"modified":"2013-12-13T08:24:27","modified_gmt":"2013-12-13T08:24:27","slug":"make-outlook-asking-if-you-want-to-send-bcc-a-sent-message","status":"publish","type":"post","link":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/2013\/12\/13\/make-outlook-asking-if-you-want-to-send-bcc-a-sent-message\/","title":{"rendered":"Make Outlook asking if you want to Send-BCC a sent Message"},"content":{"rendered":"

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)<\/p>\n

Dim ans
\nans = MsgBox(\"Send this message bcc to xyz?\", vbYesNoCancel)
\nIf ans = vbCancel Then Cancel = True<\/p>\n

If ans = vbYes Then
\n Dim objRecip As Recipient
\n Dim strMsg As String
\n Dim res As Integer
\n Dim strBcc As String
\n On Error Resume Next
\n ' #### USER OPTIONS ####
\n ' address for Bcc -- must be SMTP address or resolvable
\n ' to a name in the address book
\n strBcc = \"user@domain.com\"
\n Set objRecip = Item.Recipients.Add(strBcc)
\n objRecip.Type = olBCC
\n If Not objRecip.Resolve Then
\n strMsg = \"Could not resolve the Bcc recipient. \" & _
\n \"Do you want still to send the message?\"
\n res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
\n \"Could Not Resolve Bcc Recipient\")
\n If res = vbNo Then
\n Cancel = True
\n End If
\n End If
\n Set objRecip = Nothing
\nEnd If<\/p>\n

End Sub
\n<\/code><\/p>\n

another version:<\/p>\n

Public Sub SetBCC2()<\/p>\n

Dim objItem As Outlook.MailItem
\n Dim objRecip As Recipient
\n Dim strMsg As String
\n Dim res As Integer
\n Dim strBcc As String
\n 'On Error Resume Next<\/p>\n

Set objItem = ActiveExplorer.Application.ActiveInspector.CurrentItem<\/p>\n

objItem.Recipients.ResolveAll<\/p>\n

For Each Recipient In objItem.Recipients
\n If (Recipient.Type = olBCC) Then
\n If Recipient = \"sent@profiline-berufsmode.ch\" Then
\n Already = True
\n End If
\n End If
\n Next Recipient<\/p>\n

If Already = False Then
\n ' MsgBox (\"noch nicht drauf, also adde ich jetzt\")
\n strBcc = \"sent@tastaturkind.ch\"
\n Set objRecip = objItem.Recipients.Add(strBcc)
\n objRecip.Type = olBCC
\n objRecip.Resolve
\n Set objRecip = Nothing
\n End If<\/p>\n

End Sub<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim ans ans = MsgBox(„Send this message bcc to xyz?“, vbYesNoCancel) If ans = vbCancel Then Cancel = True If ans = vbYes Then Dim objRecip As Recipient Dim strMsg As … Weiterlesen →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-126","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/posts\/126","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/comments?post=126"}],"version-history":[{"count":0,"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/posts\/126\/revisions"}],"wp:attachment":[{"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/media?parent=126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/categories?post=126"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oliver-frick.ch\/wordpress\/index.php\/wp-json\/wp\/v2\/tags?post=126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}