Kapanırken gizli e-mail gönderilmesi

akd · 6 Şubat 2008

Merhaba arkadaşlar,

Elde olmayan nedenlerle önceki sorumuz kilitlendi,
ustadların bu konu ile ilgilenmesini hassetten rica ediyorum....

Ben yaptığım Proğramı muhtelif yerlere yüklüyorum,
ama bu kişiler benim proğramlarımı başka kişilere veriyorlarmış,
işte ben bu kişileri bulmak istiyorum, nasılmı?
Proğramım kapanırken bana otomatik olarak e-mail atabilirmi ?
e-mailde:
1- Proğramın adı
2-Pc nin kulanıcı adı
3-Pc nin IP nosu
4-Pc nin Hdd no sunu
bana e-mail olarak göndermesini nasıl yapabilirim.
Kapanırken bir Msgbox açılacak "İyi akşamalar diyecek" ve tamam tuşuna tıklandığında e-mail gönderilmiş olacak.
İlgilenecek arkadaşlara şimdiden teşekkürlerimi sunarım.
İyi günler...

pcman · 6 Şubat 2008

Tam Olarak bu maksatla kullanmasamda sistemin kullanıcıya mail ekranı açmada maili kendi göndermesi benimde çok işime yarar

akd arkadaşımızın sorusunun cevaplanmasını heyacanla bekliyorum

beab05 · 6 Şubat 2008

Merhaba;
Önceden belirttiğim gibi önemli olan çalışan bir SMTP server adresine sahip olabilmek. Yıllar önce anonymous olarak gönderim yapabileceğimiz SMTP server bulmak çok kolaydı günümüzde ne hal aldı bilmiyorum ama zorlaştığına eminim. Eğer anonymous çalışan bir tane bulursanız her şey çok kolay olacaktır, demek istediğim eğer teknik olarak ifade hatası yapmıyorsam username ve pass girmenize gerek kalmadan ya da aynı domaine sahip alıcı ya da gönderici adresi yazmadan bu işi halledebilirsiniz. Biz elimizde çalışan bir SMTP server olduğunu varsayalım. Ben “smtp.superonline.com” ile bu işi çok rahat yapabiliyorum. Elbette bu domaine ait bir pop3 maile sahibim. Yani bir Superonline mailiniz yoksa bu serverı denemeyiniz

Altta 2 farklı kod vereceğim bunları çıkışa ya da herhangi buttonun click olayına yazabilirsiniz.
1.Kod ile sahip olduğunuz pop3 mailin (SMTP destekleyen) user ve pass ını da yazıyorsunuz ve gönderici olarak yine smtp ile aynı domaini yazmalısınız yani;
From: xxxx@superonline.com gibi…
Alıcı ise önemli değil herhangi bir free e-mail adresinizi yazabilirsiniz.
To: yyyyy@hotmail.com gibi..

Kod:

Dim objCDOMail As Object
    
    
 
    Set objCDOMail = CreateObject("CDO.Message")

    objCDOMail.To = "[COLOR="red"]xxxxx@xxxxx.com[/COLOR]"
    objCDOMail.From = "[COLOR="red"]yyyyy@xxxxx.com[/COLOR]"
    objCDOMail.CC = [COLOR="red"]zzzz@hotmail.com [/COLOR] [COLOR="green"]&#8216; bilgi mailidir[/COLOR]
    objCDOMail.Subject = "[COLOR="Blue"]deneme maili[/COLOR]"
    
    objCDOMail.TextBody = "[COLOR="blue"]deneme mesaj&#305;[/COLOR]"
    
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[COLOR="red"]smtp.xxxxx.com[/COLOR]"
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[COLOR="Red"]kullan&#305;c&#305;ad&#305;[/COLOR]"
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[COLOR="red"]mail&#351;ifresi[/COLOR]"
    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objCDOMail.Configuration.Fields.Update
    
    objCDOMail.Send

    Set objCDOMail = Nothing

2.Kod ise yine çok benzerdir lakin alıcı ve gönderici domain isimleri SMTP server ismiyle aynı olmalıdır ama user ve pass girmiyoruz..

Kod:

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort = 2

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields


With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[COLOR="Red"]smtp.xxxxx.com[/COLOR]"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Update
End With


strHTML = "<HTML>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> " [COLOR="Blue"]deneme mesaj&#305;[/COLOR]&#8221; </b></br>"
With iMsg
    Set .Configuration = iConf
    .To = "[COLOR="Red"]xxxx@xxx.com[/COLOR]" [COLOR="Green"]&#8216;g&#246;nderilecek adres[/COLOR]
    .From = "[COLOR="red"]yyyy@xxx.com[/COLOR]" [COLOR="green"]&#8216;g&#246;nderilen adres[/COLOR]
    .Subject = "[COLOR="red"]Deneme mesaj&#305; (BEAB)[/COLOR] "
    .HTMLBody = strHTML
    .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Pc ile ilgili almak istediğiniz her türlü kodu ise aralara ekleyebilirsiniz, tabii bunları alan kodları da uygulamaya eklemeniz gerekir.

Kod:

strHTML = strHTML & "<b> " HDD No :  &#8221; &  gethddno  &</b></br>"

Hangisini kullanacağınızı seçmek size kalmış.. İyi Şanslar…

pcman · 6 Şubat 2008

Teşekkürler

Teşekkürler...

pucuk:

pcman · 6 Şubat 2008

Sn beab05 smtp protokolüyle gönderdiğimiz maile access raporunu ekleyebilirmiyiz...

beab05 · 6 Şubat 2008

PDF ya da SNP ye convert edip yollayabilirsiniz..

pcman · 6 Şubat 2008

objCDOMail.AddAttachment = "C:\kaynak.txt"
bu şekilde ekleyemiyorum

beab05 · 6 Şubat 2008

Siz ek olmadan yani sadece mesaj metnini mail olarak gönderebildiniz mi?

objCDOMail.AttachFile "C:\kaynak.txt"

böyle deneyiniz..

pcman · 6 Şubat 2008

evet gönderdim

ben zaman ayarlı rapor gönderme yapıyorum ama sanırım ilk önce raporu dosyaya gönderip sonra ek yapmam gerekecek

pcman · 6 Şubat 2008

Dosyaya gönderirken

Dim stDocName As String

stDocName = "ana"
DoCmd.OutputTo acReport, "deneme",

burda denemeden sonra dosya formatını excel veya pdf olarak nasıl tanımlarız
ve dosyayı belirtilen klasöre direk nasıl gider msj çıkarmadan

beab05 · 6 Şubat 2008

Öyle olmaz o, önce pdf ya da snp ye convert kodunu yazınız sonra ilgili yere export ettirin ordan da maille yollatın. Bu arada bazıları neden pdf ya da snp derse word falan niye değil gibi, Access raporları tam olarak çizgisi, şekli, resimleri gibi özellikleriyle en iyi bu iki formatta çıkmaktadır.

not: Yanlış okumuşum docmd.openreport gibi görmüştüm ben

Çevirme kodlarını heryerden bulabilirsiniz ama..

Taruz · 6 Şubat 2008

beab05' Alıntı:
Hangisini kullanacağınızı seçmek size kalmış.. İyi Şanslar…

Merhaba..

Araya giriyorum kusura bakmayın

Yöntem çok ilgimi çekti..

Ben daha önce yine sizin hazırladığınız kullanıcı günlüğünü bu çalışmanızla birleştimeyi düşünüyorum.. Olur herhalde

Gerçekten etkileyici..

Teşekkürler sn. beab05

beab05 · 6 Şubat 2008

Taruz' Alıntı:
Merhaba..

Araya giriyorum kusura bakmayın

Yöntem çok ilgimi çekti..

Ben daha önce yine sizin hazırladığınız kullanıcı günlüğünü bu çalışmanızla birleştimeyi düşünüyorum.. Olur herhalde

Gerçekten etkileyici..

Teşekkürler sn. beab05

Merhaba sayın Taruz

Elbette eklenir hatta uygulama içinde tüm objelerin ( tablo,form vs.) üstlerinde yapılan fiziksel değişiklikler bunları tarih saat olarak ya da aklınıza ne gelirse diyelim

Taruz · 6 Şubat 2008

Bu harika...

Benim derdim programın çoğaltılıp çoğaltılmadığını öğrenmekten çok, personelin program içerisinde yaptığı değişiklikleri öğrenebilmek.

Tüm şubeleri gezmeden, oturduğum yerden bunları bilebilmek çok güzel olacak..

Tekrar teşekkürler :hey:

pcman · 6 Şubat 2008

objCDOMail.AddAttachment = "C:\kaynak.txt"

eklenmiyor...

pcman · 6 Şubat 2008

.

Bunlar dosya formatları

Kod:

acFormatASP 
acFormatDAP 
acFormatHTML 
acFormatIIS 
acFormatRTF 
acFormatSNP 
acFormatTXT 
acFormatXLS

klasöre göndermeyi hala araştırıyorum

beab05 · 6 Şubat 2008

pcman' Alıntı:
objCDOMail.AddAttachment = "C:\kaynak.txt"

eklenmiyor...

objCDOMail.AttachFile "C:\kaynak.txt"

Deneyiniz diye önceki mesajların birinde yazmıştım ama!!?? Ayrıca pdf ve snp ye convert eden ayrı bir e-mail örneği ben bu foruma eklemiştim. Ordan da bakabilirsiniz..

pcman · 6 Şubat 2008

hata veriyor...

beab05 · 6 Şubat 2008

Kod:

objCDOMail.Addattachment "C:\kaynak.txt"

Doğrusu bu gerçekten ama bende de olmadı.

Lakin 2. verdiğim kodla oluyor ..

.subjectin altına

Kod:

.Addattachment "C:\kaynak.txt"

pcman · 6 Şubat 2008

evet mutlu sona yaklaşıyoruz.

ama hala dosyaya gönderme olayını beceremedim

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

Kapanırken gizli e-mail gönderilmesi

akd

Destek Ekibi

pcman

beab05

Özel Üye

pcman

pcman

beab05

Özel Üye

pcman

beab05

Özel Üye

pcman

pcman

beab05

Özel Üye

Taruz

beab05

Özel Üye

Taruz

pcman

pcman

beab05

Özel Üye

pcman

beab05

Özel Üye

pcman