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

ZeyNoO

V.I.P
V.I.P
Outlook'u açın
Dosya Menüsüne Girin.
Dosya Menüsün'nden Veri Dosyası Yönetimi'ni Seçin


outlooksifre.jpg


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.


outlooksifre4.jpg


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.

outlooksifre3.jpg



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.
outlooksifre2.jpg



Tekrar açtığınızda parola ekranıyla karşılaşacaksınız :)
 

YoRuMSuZ

Biz işimize bakalım...
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

V.I.P
V.I.P
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ı :)
 
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
 
Top