Dodaj BCC do wiadomości e-mail za pomocą VBA w programie Outlook 2013
Nie mogę znaleźć poprawnego kodu VBA dla programu Outlook 2013, aby dodać stały adres e-mail do pola BCC wiadomości e-mail, gdy jest on otwarty do edycji. Mam następujący kod, który tworzy wiadomość e-mail, a następnie ustawia BCC.
Chcę dodać BCC do e-maili, na które odpowiadam, więc wiadomość będzie już w formie „roboczej”.
Sub sendcomment_click()
Set oMsg = Application.CreateItem(olMailItem)
With oMsg
.Recipients.Add ("email address")
'Set objRecip = Item.Recipients.Add("email address")
'objRecip.Type = olBCC
'objRecip.Resolve
' Join Email addresses by "; " into ".BCC" as string
.BCC = "[email protected]; [email protected]"
.Subject = "New Comment by"
.Body = "sdfsdfsdf"
.Display ' Comment this to have it not show up
'.Send ' Uncomment this to have it sent automatically
End With
Set oMsg = Nothing
End Sub
* Aktualizacja *
Zaimplementowałem świetną radę od Dmitry
Mój kod brzmi teraz:
Sub BCC()
Dim objRecip As Recipient
Set oMsg = Application.ActiveInspector.CurrentItem
With oMsg
Set objRecip = item.Recipients.add("[email protected]")
objRecip.Type = olBCC
objRecip.Resolve
End With
Set oMsg = Nothing
End sub
Jednak gdy próbuję go uruchomić, pojawia się błąd „Błąd czasu wykonania” 424 „Wymagany obiekt” i podświetla linię:
Set objRecip = item.Recipients.Add("[email protected]")