• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

şifreli mail gönderme

  1. T

    Soru Şifreli Butonda Revizyon Yapmak

    Sub Yetki_Sayfasi_MailAt() Dim DsyYol, Dsy, OutApp, OutMail, Sifre, MailSayf, InpSifre Sifre = "10" Set MailSayf = Worksheets("yetki") Basadon: InpSifre = InputBox("Sifre gir..", "Calisma Kitabi Sifresi") If InpSifre = "" Then Exit Sub If InpSifre = Sifre Then...
Geri
Üst