• Merhaba Ziyaretçi.
    "Yapay Zeka Objektif " Fotoğraf Yarışması başladı. İlgili konuya  BURADAN  ulaşabilirsiniz. Sizi de bu yarışmada görmek isteriz...

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