0 0
Read Time:50 Second

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
 
Happy
Happy
0 %
Sad
Sad
0 %
Excited
Excited
0 %
Sleepy
Sleepy
0 %
Angry
Angry
0 %
Surprise
Surprise
0 %
Previous post Adnan Şenses öldü mü?
Next post Hazırda beklet özelliğini kapatmak ve açmak

Average Rating

5 Star
0%
4 Star
0%
3 Star
0%
2 Star
0%
1 Star
0%

Bir cevap yazın

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