ISTE BURASI

Outlook açılışına şifre koymak için aşağıdaki gibi bir yol izleyebiliriz;

ThisOutlookSession’a yazılacak kodlar:

[code]Private Sub Application_Startup()
frmBulent_Giris.Show 1
MsgBox "İyi çalışmalar.", vbInformation
End Sub[/code]

frmBulent_Giris isimli forma yazılacak kodlar:
[code]Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

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

Private Sub CommandButton1_Click()
Static bulent As Integer

If TextBox1 = "1234" Then
    Unload Me
Else
    ListBox1.AddItem TextBox1 & " başarısız deneme.":
    bulent = bulent + 1
    If bulent >= 3 Then
        ActiveWindow.Close
        Application.Quit
    End If
End If
End Sub[/code]

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

Outlook’tan sürekli aynı tarzda yazdığınız, tekrar yazmak veya kopyala-yapıştır yapmaktan sıkıldığınız mailler oluyor mu?
Benim oluyor. Bu yüzden yarı otomatik bir kod hazırladım, bunu Outlook’a eklediğim bir menüye atadım ve işlerimi kolaylaştırdım.
 
Aşağıdaki örnekler, müşteri siparişlerine termin isteme ve termin verme örnekleridir.
  Read the rest of this entry »