Pazar , Eylül 15 2019
Anasayfa / Program / outlook da macro ile oto cc yada bcc ye mail ekleme

outlook da macro ile oto cc yada bcc ye mail ekleme

Outlook da macro ile bilgi yada gizli alanına gönder tuşuna bastığınızda otomatik istediğiniz bir adresi yazarak o mailin otomatik arşivlenmesini sağlayabilirsiniz.

kod içeriği

Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
 
' #### USER OPTIONS ####
' adress for Bcc — must be SMTP adress or resolvable
' to a name in the adress boook
 
strBcc = "mail@domainadresiniz.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
 

Hakkında hasgül

İlginizi çekebilir. Bu yazımada bakmak ister misiniz?

Office programını her başlattığınızda Office Son Kullanıcı Lisans Sözleşme uyarısını kaldırma

Office programını her başlattığınızda Office Son Kullanıcı Lisans Sözleşme uyarısını kaldırma Bu uyarıyı tamamen kaldırmak …

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir