E-mail adresine göre açılan sayfa

[polokomus]

Merhabalar değerli üstadlar ve tüm forum üyeleri.
Ekteki örneği 10 kişiye birden email ile göndermekteyiz. Karşı tarafın email programları outlook veya outlook express.

1- Dosyayı veli@sirket.com aldı ise,alıcı sadece Veli VE Veli-Oya sayfasını görülebilsin, PATRON VE GENEL sayfalar hariç diğer sayfalar SİLİNSİN.
2- Dosyayı patron@sirket.com aldı ise,alıcı tüm sayfaları görebilsin.
3- Dosyayı oya@sirket.com aldı ise alıcı sadece Oya VE Veli-Oya sayfasını görebilsin., PATRON VE GENEL sayfalar hariç diğer sayfalar SİLİNSİN.
4- Mail adresi yanlış bir kişiye gittiğinde ise dosya komple silinsin. (İsteğe bağlı)
Böyle bir durum mümkün müdür?
Umarım anlatabilmişimdir.

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Kodun çalışma mantığı;

Outlook hesap adı bir değişkene atanır. Bu değişken içinde sizin belirttiğiniz isimlerin olup olmadığı sorgulanarak dosya içindeki sayfalar düzenlenir.

Maili alan kişi makroları etkinleşirmeden dosyayı açarsa istediğiniz sonucu almazsınız.

Umarım faydası olur.

Kullanılan kod; (ThisWorkbook bölümüne uygulayın.)

Option Explicit
 
Private Sub Workbook_Open()
    Dim Outlook_Uygulaması As Outlook.Application
    Dim Adres As String, Sayfa As Worksheet
    
    Set Outlook_Uygulaması = Outlook.Application
    
    Adres = Outlook_Uygulaması.GetNamespace("MAPI").Accounts.Item(1)
    
    Excel.Application.Visible = False
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Visible = True
    Next
    
    If Adres Like "*veli*" Then
        Application.DisplayAlerts = False
        For Each Sayfa In ThisWorkbook.Worksheets
            If Sayfa.Name <> "Veli" And Sayfa.Name <> "Veli-Oya" And Sayfa.Name <> "Patron" And Sayfa.Name <> "GENEL" Then
                'Sayfa.Delete
            End If
        Next
        Sheets("Patron").Visible = False
        Sheets("GENEL").Visible = False
        Application.DisplayAlerts = True
        
    ElseIf Adres Like "*oya*" Then
        Application.DisplayAlerts = False
        For Each Sayfa In ThisWorkbook.Worksheets
            If Sayfa.Name <> "Oya" And Sayfa.Name <> "Veli-Oya" And Sayfa.Name <> "Patron" And Sayfa.Name <> "GENEL" Then
                Sayfa.Delete
            End If
        Next
        Sheets("Patron").Visible = False
        Sheets("GENEL").Visible = False
        Application.DisplayAlerts = True
    End If
    
    Excel.Application.Visible = True
End Sub