E-Mail hakkinda yardim lutfen.

[TRUSA]

Arkadaslar Merhaba,

Gunlerdir ariyorum fakat bir turlu bulamiyorum. Buldugum linkler ya calismiyor yada istedigim gibi degil.
Ben Access ile form uzerinden e-posta gondermek istiyorum. Ekli dosya yada rapor degil. Sadece To ve Cc kismina textboxlar araciligiyla yazilacak kisilere,
Subject kismina 'Prosis' ve Text kismina da 'Lutfen Kayitlari Kontrol Ediniz' seklinde bir posta olusturulacak ve buton vasitasiyla gonderilecek.

Yardimlariniz ve paylasimciliginiz icin cok tesekkurler...

 

[beab05]

Merhaba;
Aşağıdaki linki de incelediniz sanırım??

http://www.excel.web.tr/showthread.php?t=44780

Bu sizin işinizi görmüyor mu? Outlook ayarlarıyla da uğraşmak zorunda kalmıyorsunuz.

 

[TRUSA]

Tesekkurler beab05,

Evet bu linki gordum ve inceledim. Sanirim bir sey yazmayi atladim. Bu gonderecegim posta sirket ici kullanilan bir posta oldugu icin sadece isim ve soyisim yazdigimizda gidiyor. Herhangi bir password, ayar yada servis saglayici kullanmaya gerek kalmiyor. Bu konuyada aciklik getirirseniz sevinirim.

Tekrar tesekkur ederim yardimlariniz icin.

 

[beab05]

Local ağda çalışma şartlarını bilemiyorum fakat sonuçta yine de bir SMTP adresi kullanıyorsunuz sanırım. Ayrıca her bir kullanıcının bir adresi ve şifresi yine de vardır. Bunlara göre kodu oluştursanız?

 

[TRUSA]

Tekrar Merhaba beab05,

Sirkette herkes bilgisayari kendi adina ve password ile aciyor. Ve MS Outlook acarken herhangi bir kullanici adi, password girilmiyor. Bizde posta gonderirken ( tabii sirket icinde ) sadece soyisim ve isim yada adinin basharfi ve soyisim yazip gonderiyoruz. Yani MAslan yada Aslan,Mustafa gibi...
Bende bu formu boyle bir ortamda kullanacagim icin gonderen kismina sadece ad soyad yazilmasi yeterli.

Bir turlu basaramadim..

Yardimlarin icin tekrar tesekkurler..

 

[modalı]

Sayın TRUSA,

Yerel ağda yine SMTP kullanılıyor. Madem ki Outlook üstünden e-mail gönderebiliyorsunuz o zaman aşağıdaki kodlar işinizi görür sanırım:

Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
            
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.Email_Address 'e-mail adresi yazacağınız metin kutusu adı
            .Subject = "Porosis"
            .HTMLBody = "Lutfen Kayitlari Kontrol Ediniz"
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "Bir hata oluştu." & vbCrLf & "Hata iletisi: " & Err.Description
            Resume Error_out
Error_out:

Yukaridaki kodları bir düğmenin klik olayına kopyalayın.

İyi çalışmalar

 

[TRUSA]

Sizede tesekkurler yardimlariniz icin modali,

Ama maalesef olmadi.

Dim appOutLook As Outlook.Application

satirinda hata veriyor..

Yardimlariniz ve paylasimciliginiz icin tesekkurler....

 

[modalı]

Sayın TRUSA,

O olmadı bu olmadı yerine ben de bir hata mı var diye sorsanız keşke.

Referanslarınıza bakın Microsoft Outlook 10.0 Object Library referansı eksiktir onu ekleyerek deneyin. 10 yerine kullandığınız Office in sayısı gelecektir.

İyi çalışmalar

 

[TRUSA]

Sayın TRUSA,

O olmadı bu olmadı yerine ben de bir hata mı var diye sorsanız keşke.

Sayin modali

Ozellikle bu forumdan boyle bir tepki beklemezdim dogrusu. Hatali olan bolgeleri yada tam olarak yapmak istedigimi bir kac yazismada da olsa anlatmaya calisiyordum sadece..

Yinede herkese yardim ettigi icin ve bilgilerini paylastigi icin tesekkurler...

 

[modalı]

Sayın TRUSA

Buradaki soru ve cevaplar kişiye özel değil.

Verilen çözümlere bu şekilde yaklaşırsanız bundan sonra bu başlığı okuyacak kişileri de etkilemiş ve doğru çözüme ulaşmalarını engellemiş olursunuz.

Aslında bu sorunuza hiç cevap verilmemiş olması gerekiyordu. Çünkü bu konu çeşitli zamanlarda işlenmişti. Bu konu sadece Access in konusu olmadığından forumda az önce küçük bir araştırma yaptım ve e-mail kelimesinin geçtiği 900 aşkın başlık buldum.