none
Exchange serverden Global adres listi nasıl cekerim ve mail bodyde punto, font, renk kullanabilirmiyim RRS feed

  • Soru

  • selamlar

    vb.net 2010 da

    1-Exchange serverimizden global adres listesini nasıl alıırm mail adreslerini nasıl listelerim

    2 - Mail atma programı yazacam ama body kısmında font renk ve punto kullanmak istiyorum bunu nasıl yapabilirim.

    tşk ler

     

    8 Haziran 2011 Çarşamba 07:36

Yanıtlar

  • bu şekilde oluyor. hallettim sizlerede sunuyorum. tşk ler.

     Dim myDirectorySearcher As New DirectorySearcher
            Dim strroot As String = myDirectorySearcher.SearchRoot.Path
            Dim mySearchRoot As New DirectoryEntry(strroot)

            mySearchRoot.Password = "admin password"
            mySearchRoot.Username = "Administrator"
            myDirectorySearcher.Filter = String.Format("(& (objectClass=user)(sn={0}*))", slastName)

            myDirectorySearcher.SearchScope = System.DirectoryServices.SearchScope.Subtree
            myDirectorySearcher.PropertiesToLoad.Add("cn")
            myDirectorySearcher.PropertyNamesOnly = True
            myDirectorySearcher.Sort.Direction = SortDirection.Ascending
            myDirectorySearcher.Sort.PropertyName = "cn"

            Dim mySearchResultS As SearchResultCollection = myDirectorySearcher.FindAll()

            If mySearchResultS.Count > 1 Then

                For Each ara As SearchResult In mySearchResultS
                    If Not String.IsNullOrEmpty(ara.GetDirectoryEntry.Properties("cn").Value) Then
                        ListBox1.Items.Add(ara.GetDirectoryEntry.Properties("cn").Value)
                    End If

                Next
            End If

        End Sub

    10 Haziran 2011 Cuma 11:08
  • technozz selamlar,

    1. Sorunuz için deneme fırsatı bulamadım ama aşağıdaki gibi bir örnek var incelemeniz faydalı olabilir.

    http://professionalaspnet.com/archive/2006/11/01/Searching-the-GAL.aspx

    http://www.c-sharpcorner.com/UploadFile/frankalonzo/GlobalAddressList11262005053740AM/GlobalAddressList.aspx

    2. Sorunuz için de mail atarken IsBodyHtml property'sini true olarak ayarladıktan sonra mail body'sinde :

    msg.Body="<span style=""font-family:Arial;font-size: 30pt;"">technozz</span>"
    

     

    Gibi style kullanarak renk punto vb ayarlamaları yapabilirsiniz.

    Kolay gelsin.


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır.
    Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
    Facebook Üzerinden Takip Et!
    Twitter'da Takip Et!


    9 Haziran 2011 Perşembe 09:47
    Moderatör
  • technozz merhabalar,

    Geri dönüş yapıp çözümü bizimle paylaştığınız için çok teşekkürler.

     


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır.
    Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
    Facebook Üzerinden Takip Et!
    Twitter'da Takip Et!


    • Yanıt Olarak İşaretleyen technozz 10 Haziran 2011 Cuma 12:30
    10 Haziran 2011 Cuma 11:23
    Moderatör

Tüm Yanıtlar

  • technozz selamlar,

    1. Sorunuz için deneme fırsatı bulamadım ama aşağıdaki gibi bir örnek var incelemeniz faydalı olabilir.

    http://professionalaspnet.com/archive/2006/11/01/Searching-the-GAL.aspx

    http://www.c-sharpcorner.com/UploadFile/frankalonzo/GlobalAddressList11262005053740AM/GlobalAddressList.aspx

    2. Sorunuz için de mail atarken IsBodyHtml property'sini true olarak ayarladıktan sonra mail body'sinde :

    msg.Body="<span style=""font-family:Arial;font-size: 30pt;"">technozz</span>"
    

     

    Gibi style kullanarak renk punto vb ayarlamaları yapabilirsiniz.

    Kolay gelsin.


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır.
    Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
    Facebook Üzerinden Takip Et!
    Twitter'da Takip Et!


    9 Haziran 2011 Perşembe 09:47
    Moderatör
  • bu vermiş oldugunuz ornekler cok karısk artı ya eksik yada yazılım hataları var.

    kod da hataalar var

    bakmanız mumkunmu..

     

    tşk ler

     

    9 Haziran 2011 Perşembe 11:11
  • Selamlar,

    Evet VB için olanda çifte yazılmış satırlar var. C# dilindeki örneğe bakarak düzenleyebilirsiniz. Ben kendi ortamımda şu anda test edemiyorum malesef. Ama şöyle birşey olması gerekiyor muhtemelen :

    Private Sub SearchEmployees(ByVal slastName As String)
    
    Dim myDirectorySearcher As New DirectorySearcher
    
    Dim mySearchRoot As New DirectoryEntry(myDirectorySearcher.SearchRoot.Path)
    
    myDirectorySearcher.Filter = String.Format("(& (objectClass=user)(sn={0}*))", slastName)
    
    myDirectorySearcher.SearchScope = System.DirectoryServices.SearchScope.Subtree
    
    Dim mySearchResultS As SearchResultCollection = myDirectorySearcher.FindAll
    
    If mySearchResultS.Count = 0 Then
    
    ltlErrMsg.Text = "Sorry there are no employees matching your criteria, please try again."
    
    Else If 
    mySearchResultS.Count > 1 Then
    'rptRequestee is a DataRepeater
    
    rptRequestee.DataSource = mySearchResultS
    
    rptRequestee.DataBind()
    
    End If
    
    End Sub
    
    
    

    Kolay gelsin.


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır.
    Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
    Facebook Üzerinden Takip Et!
    Twitter'da Takip Et!


    9 Haziran 2011 Perşembe 11:29
    Moderatör
  • bu şekilde oluyor. hallettim sizlerede sunuyorum. tşk ler.

     Dim myDirectorySearcher As New DirectorySearcher
            Dim strroot As String = myDirectorySearcher.SearchRoot.Path
            Dim mySearchRoot As New DirectoryEntry(strroot)

            mySearchRoot.Password = "admin password"
            mySearchRoot.Username = "Administrator"
            myDirectorySearcher.Filter = String.Format("(& (objectClass=user)(sn={0}*))", slastName)

            myDirectorySearcher.SearchScope = System.DirectoryServices.SearchScope.Subtree
            myDirectorySearcher.PropertiesToLoad.Add("cn")
            myDirectorySearcher.PropertyNamesOnly = True
            myDirectorySearcher.Sort.Direction = SortDirection.Ascending
            myDirectorySearcher.Sort.PropertyName = "cn"

            Dim mySearchResultS As SearchResultCollection = myDirectorySearcher.FindAll()

            If mySearchResultS.Count > 1 Then

                For Each ara As SearchResult In mySearchResultS
                    If Not String.IsNullOrEmpty(ara.GetDirectoryEntry.Properties("cn").Value) Then
                        ListBox1.Items.Add(ara.GetDirectoryEntry.Properties("cn").Value)
                    End If

                Next
            End If

        End Sub

    10 Haziran 2011 Cuma 11:08
  • technozz merhabalar,

    Geri dönüş yapıp çözümü bizimle paylaştığınız için çok teşekkürler.

     


    Microsoft bu servisi kullanıcılarına yardım etme, Microsoft ürünleri ve teknolojileriyle ilgili bilgi bankasını genişletme amacıyla ücretsiz sunmaktadır.
    Bu içerik olduğu gibi benim tarafımdan hazırlanmış olup Microsoft tarafından herhangi bir sorumluluk üstlenildiği anlamına gelmez.
    Facebook Üzerinden Takip Et!
    Twitter'da Takip Et!


    • Yanıt Olarak İşaretleyen technozz 10 Haziran 2011 Cuma 12:30
    10 Haziran 2011 Cuma 11:23
    Moderatör