Outlook'a Açılış Şifresi Koyma

ZeyNoO

٠•●♥ KuŞ YüreKLi ♥●•٠
V.I.P
Katılım
5 Ags 2008
Mesajlar
61,525
Beğeniler
6,240
Takım
GALATASARAY
#1
Outlook'u açın
Dosya Menüsüne Girin.
Dosya Menüsün'nden Veri Dosyası Yönetimi'ni Seçin




Gelen Pencerede Eklediğiniz Mail Hesapları'nı değil de; Outlook'un kendisinde mevcut olan Kişisel Klasörlerin üzerine gelip; Ayarlar butonuna tıklayın.




Not
: Eğer kişisel klasörlere değilde eklediğiniz mail hesaplarına şifre koyarsanız eski mailleriniz gizlenmez.. Outlook'u açtığınızda mailleriniz görünür.
Gelen pencereden şifreyi değiştir butonuna tıklayın.




Gelen Pencerede; eski parola olmadığından, yeni parola ve parola doğrulama kutucuklarına outlook açılışında kullanmak istediğiniz parolayı yazın ve tamam deyin.

Daha sonra Outlook'u kapatın.



Tekrar açtığınızda parola ekranıyla karşılaşacaksınız :)
 
Katılım
7 Hzr 2006
Mesajlar
36,716
Beğeniler
8,961
Takım
GALATASARAY
#2
Outlook kullanımı ile ilgili tüm detayları anlatıyosun Zeynoo yeni hobin outlook demek ki inciğini boncuğunu ortaya çıkaracaksın galiba :D
 

ZeyNoO

٠•●♥ KuŞ YüreKLi ♥●•٠
V.I.P
Katılım
5 Ags 2008
Mesajlar
61,525
Beğeniler
6,240
Takım
GALATASARAY
#3
Outlook'dan hobi mi olurmuş :D
outlookla ilgili işlemlerim bitti hatta outlookla ilgili açacağım bu son konuydu :P
şifre koyma işleminide baya araştırdım o yüzden eklemesem olmazdı :)
 
Katılım
9 Ksm 2011
Mesajlar
46
Beğeniler
3
Şehir
İstanbul
#4
Merhaba Arkadaşlar,
Outlook kod sayfasına aşağıdaki kodları yazarakta açılış şifresi koyabilirsiniz;

Not: Form üzerinde 1 adet Textbox, 1 adet Listbox ve 1 Adet CommandButton olacak.


ThisOutlookSession'a yazılacak kodlar:

Kod:
Private Sub Application_Startup()
UserForm1.Show 1
MsgBox "İyi çalışmalar.", vbInformation, "ExcelVBA.Net"
End Sub
UserForm1 isimli forma yazılacak kodlar:

Kod:
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
Kod:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Lütfen şifreyi giriniz...", vbCritical, "Outlook'u Açmak İçin Şifre Girmelisiniz"
End If
End Sub
Kod:
Private Sub CommandButton1_Click()
Static evn As Integer

If TextBox1 = "1234" Then
    Unload Me
Else
    ListBox1.AddItem TextBox1 & " başarısız deneme.":
    evn = evn + 1
    If evn >= 3 Then
        ActiveWindow.Close
        Application.Quit
    End If
End If
End Sub
Saygılarımla
MuratOSMA
 

Benzer konular

Top