otomatik e-mail gönderme

akd · 4 Şubat 2008

Merhaba arkadaşlar,
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...

gulsum1 · 4 Şubat 2008

cevap

mail ilede olur senin mail adresin ve şifreni kodun içine gömersen hotmail ile gizli olarak mail atar
yada başka yollarıda var dünyanın neresinde olursa olsun kim programı açmış kaçta açmış hangi ip hangi mac de dakika dakika kaydedersin çok basit bir şey kendine ait bir hostun olur onun ftp sine koyduğun bir mdb yada txt belgesine bütün programlarının açan kişileri kaydedersin bilgisayarın ip ve mac adreslerini bulmayı ve ftp ye kaydetmeyi daha önce göstermiştim

bak sana hotmailin junk klasörünü silmeyi vereyim sen göndermeyide bu koda bakarak halledersin

Private Sub DelJunkhotMail()Const url As String = "http://www.hotmail.com"Dim ie As Object, myurl As String, sngSt As Date, pLc As LongDim MyInbox As StringSelect Case _ MsgBox("You are about to clear your Junk Folder," & _ "this data is not backed up." & String(2, vbLf) & _ "Shall we proceed?" & String(2, vbLf) & _ "If not, try the normal login variety.", vbYesNo) Case vbNo Exit SubEnd SelectOn Error GoTo 1Set ie = CreateObject("InternetExplorer.Application")With ie .navigate url Do While .ReadyState <> 4: Loop With .document.passwordform If .login.Value = "" Then .login.Value = y & "@hotmail.com" .passwd.Value = z .enter.Click End With Do While .busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop sngSt = Now Do While InStr(.document.url, "hmhome") = 0 DoEvents If Now - sngSt > TimeValue("00:01:00") Then GoTo 1 Loop myurl = .document.url MyInbox = Replace(myurl, "hmhome", "HoTMail") pLc = InStr(.document.url, "hmhome") + Len("hmhome?curmbox=F00000000") .navigate Replace(Mid$(myurl, 1, pLc - 1), _ "hmhome", "HoTMail") & _ 5 & Mid$(myurl, pLc + 1, Len(myurl)) & "&DoEmpty=1" Do While .busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop .navigate Replace(.document.url, "HoTMail", "Logout") Do While InStr(.document.url, "www.msn.com") = 0: DoEvents: LoopEnd Withie.QuitSet ie = NothingMsgBox "Junk Mail has been deleted."Exit Sub1: MsgBox "Could Not Log into Hotmail." ie.Quit Set ie = NothingEnd Sub

akd · 4 Şubat 2008

Merhaba sayın gulsum1,
Forma hoşgeldiniz,
bu yazdığınız kod ne işe yarıyor acaba?
benim soruma cevap olacak kod elinizde varsa,
ve buraya yazarsanız sevinirim.
İyi günler dilerim...

assenucler · 4 Şubat 2008

Sn. gulsum1 hoş geldiniz.

Hocam, sizi çok özlemiştik... Tekrar aramızda görmek benim için büyük mutluluk, sizin bu siteye katkınız o kadar büyük olmuştu ki, geçmişe dönük tüm iletilerde hep imzanız var. Şöyle bir arşivime bakıyorum. Arşivimim sizin adınız yazılı mesaj ve dosyalarla dolu...

Tekrar hoş geldiniz derken,sevgi ve saygılarımı sunarım.

Ersen · 5 Şubat 2008

Başlığı ve Gülsüm'ün cevabını görünce öylesine heyecanlandım ki anlatamam. Ancak akd'nin sorusunun cevabını bulamadım bu açıklamanın içinde. Hiçbirşey yapamadım bu kodla.

Rica etsek Gülsüm hanım cevabını biraz somuta indirgeyebilir mi. Biz hotmail junk klasörünü silmeye çalışmıyoruz, yazdığımız programdan bize e-mail gelmesini istiyoruz sanırım bu illegal bir istek değil... Genelde akd'nin sorusuna verilecek cevap işime yarayacak, özelde ise ayrı ayrı şehirlerdeki programların merkezdeki bilgisayara internet üzerinden veri dosyası göndermesini sağlamaya çalışıyorum isteğim bu kadar.

beab05 · 5 Şubat 2008

Orhun Yazıtlarından ziyade bu tür uygulamalarda SMTP server önemlidir.. Çalışan bir SMTP server ya da pop3 mailiniz varsa rahatlıkla her istediğinizi küçük bir kodla gönderebilirsiniz.. Vakit bulursam bununla ilgili bir örnek eklerim..

baydeniro · 5 Şubat 2008

MErhaba arkadaşlar. Sayın gülsüm1'in yazdığı kodu excel dosyasında da kullanabilir miyiz ?

gulsum1 · 5 Şubat 2008

cevap

sayın beab5 ben gönderilmez demedim gizli gönderilmez dedim cümlelerime dikkat edin ve lütfen kırmadan cevap verin
şu yaptığınız gizlice mail gönderme kodlarını eklerseniz herkesin problemini çözmüş olacaksınız ZONEALARM Kapersky nin engelleyemediği kodları
dakika 1 gol 1 ben nekadar kimseyi üzmeden cevap vermek istesemde mutlaka biri çıkıp bir şey söylüyor

beab05 · 5 Şubat 2008

Merhaba;
Hiç te kıytırık bir antivirüsüm yok gayet güzel oluyor bende herşey..Kendime gönderdiğim mailin görüntüsü ektedir..
MAC olayını yeni ekledim sizin kodlarla..

akd · 5 Şubat 2008

Merhaba arkadaşlar,
Sayın Beab05, bu resimde gördüğümüz kendinize gizli olarak gönderdiginiz e-mailin kodlarını vermeniz mümkünmü acaba.
İyi günler dilerim

beab05 · 5 Şubat 2008

gulsum1' Alıntı:
sayın beab5 ben gönderilmez demedim gizli gönderilmez dedim cümlelerime dikkat edin ve lütfen kırmadan cevap verin
şu yaptığınız gizlice mail gönderme kodlarını eklerseniz herkesin problemini çözmüş olacaksınız ZONEALARM Kapersky nin engelleyemediği kodları

Kırıcı olduysam özür dilerim ama kesin hüküm veren mesajlardan da hoşlanmıyorum. Ben formun kapanışına koydum kodları ve kendime pop3 ve hotmail olmak üzere 2 farklı adrese gönderebildim.Gayet gizli olarak

Bu iki adrese gönderdiğim kodlar da farklı birisi pop3 mail user ve şifrenizle çalışırken diğeri buna gerek duymuyor ama duymayan yine kullandığınız smtp serverına bağlı adrese gönderme şartını koyuyor. Kaspersky kullanmıyorum ama sorun çıkaracağını sanmıyorum çünkü outlookla aynı gönderme mantığına sahiptir bu işlem..

gulsum1 · 5 Şubat 2008

FireWall den SMTP engellenmişse nasıl gönderecek maili onuda gizlice açma kodu vardır sanırım
yada virüs programlarının giden postaları denetle seçeneğini kaldıran bir kod yani ben kesinciyim bir şekilde engellenebilecek bir şey için beni kırmanıza değdimi siz onu söyleyin

beab05 · 5 Şubat 2008

gulsum1' Alıntı:
FireWall den SMTP engellenmişse nasıl gönderecek maili onuda gizlice açma kodu vardır sanırım
yada virüs programlarının giden postaları denetle seçeneğini kaldıran bir kod yani ben kesinciyim bir şekilde engellenebilecek bir şey için beni kırmanıza değdimi siz onu söyleyin

Firewall dan smtp neden engellensin ki o zaman outlook ya da başka mail clientleri de sorun yaşar.. Uygulamanın testlerini tam olarak bitirmedim. Bir de evde deniyeyim. Ayrıca sizi kırdığımı da sanmıyorum...

gulsum1 · 5 Şubat 2008

cevap

ben gönderilmez demedim zaten bilinmeyen bir şey değil smtp
http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1334279&page=&view=&sb=5&o=&fpart=all&vc=1

Ersen · 5 Şubat 2008

Biz acemiler de sorup duruyoruz işte ne yapalım
1. SMTP ve POPUP server nedir. Mail adresi alınan bir yer midir. Bunları nasıl temin edebiliriz.
2. Sayın beab05 şu yukarıya yapıştırdığın mail'in arka planını ve tam detaylarını bize anlatabilir misiniz?

Buna çok ihtiyacım var, emin olun gerçekten çok ihtiyacım var. Hiç olmazsa özel mesaj olarak gönderin, tekrar rica ediyorum.

modalı · 5 Şubat 2008

Sayın Ersen

SMTP Nedir ?
E-posta gönderme protokolü (Simple Mail Transfer Protocol)
Bir e-posta göndermek için sunucu ile istemci arasındaki iletişim şeklini belirleyen protokoldür. Sadece e-posta yollamak için kullanılan bu protokolde, basitçe, istemci bilgisayar SMTP sunucusuna bağlanarak gerekli kimlik bilgilerini gönderir, sunucunun onay vermesi halinde gerekli e-postayı sunucuya iletir ve bağlantıyı sonlandırır.
E-posta almak için POP3 yada IMAP kullanılır.
Ücretsiz hizmet veren büyük e-posta servisi sağlayıcıları da SMTP ve diğer e-posta gönderim ve kontrol protokollerini desteklemeye başlamışlardır.
Outlook, Eudora, Kmail, Thunderbird, Evolution, Sylpheed gibi e-posta istemcileri, e-postalarınızı gönderilmek üzere sunucunuza iletirken SMTP servisinden faydalanırlar.
25 numaralı port SMTP sunucusu için ayrılmıştır.

POP3 Nedir ?
POP3 bir e-posta iletişim protokolüdür. “Post Office Protocol 3″
E-posta gönderilirken SMTP protokolü kullanılır. Söz konusu e-posta, e-posta sunucuları arasında aktarılırken de SMTP kullanılır. Tâ ki alıcı e-postayı okumak istediğinde bigisayarına indirmek için arkaplanda POP3 protokolü kullanılır. Yani, POP3, yalnızca e-postayı almak için ve son kullanıcılar tarafından kullanılır.
E-posta sunucusuyla iletişim sağlamak için genelde aşağıdaki bilgileri girmek gerekir:
Kullanıcı adı / user name / örn: aliveli4950 veya aliveli4950@ornek.com veya kemalettin%ornek.com gösterimlerinden biriyle belirtilir. Hangi tarzın kullanılacağı, sistem yöneticisine sorulmalıdır.
Şifre / password
Giden sunucu adresi / Outgoing mail server (SMTP) / E-posta hangi sunucu üzerinden gönderilecek, IP de belirtilebilir
Gelen sunucu adresi / Incoming mail server (POP3) / E-postalar hangi sunucudan alınacak, IP de belirtilebilir
Bağlantı Port numarası genellikle 110 olarak yapılandırılır.

Webmail Nedir ?
Webmail , e-postalarınızı kontrol etmenize yarayan bir arabirimdir.
Dünyanın herhangi bir yerindesiniz ve e-postalarınızı kontrol etmek istediniz. Ve kullandığınız mail adresiniz @yahoo.com - @hotmail.com - @msn.com gibi kullanıma hazır e-posta panellerine sahip değil. Bu durumda ya outlook express kurar ve e-postalarınızı outlook tan kontrol edersiniz, ya da webmail hesabınıza giriş yaparsınız. Şüphesiz ki webmail kullanmak outlook kullanmaktan daha basit, daha pratik ve daha hızlıdır.
örneğin e-posta hesabınız ornek@domainadi.com olsun. Bu durumda bu e-posta hesabıyla mail almak ve yollamak için gireceğiniz webmail adresiniz http://webmail.kolasinli.com olacaktır.
Eğer yahoo, hotmail, msn, superonline, mail.com gibi e-posta dağıtıcılarından e-posta aldıysanız webmail sizin için sadece genel kültür bilgisi olarak kalacak.

beab05 · 5 Şubat 2008

gulsum1' Alıntı:
ben gönderilmez demedim zaten bilinmeyen bir şey değil smtp
http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1334279&page=&view=&sb=5&o=&fpart=all&vc=1

Sizin ne dediğiniz belli değil ki, her dakika cevaplarınız ve anlamları değişiyor.. Neyse biyerlerden bir çözüm yolu bulmuşsunuz o halde konu sizindir..

akd · 6 Şubat 2008

Merhaba arkadaşlar,
Sayın beab05, yine gülsum1'in yaptığı insanların kafasını karıştırmak, önce olmaz diyor, sonra olur diyor, yine bir yerlerden bulduğu kodları kopyala yapıştır yöntemi ile bilgiçlik taslamak bence.
Bir insan biliyorsa açıkca söyler, bilmiyorsa söylenenleri dinler.
Şahsen ben bir soruya cevap vermeden önce kendim bizzat dener sonra cevap vermeye yeltenirim.
Herkese iyi akşamlar dilerim...

Ersen · 6 Şubat 2008

Sn: Modalı size çok teşekkür ediyorum. Yazınız bu konuyu gerçekten bir projektör gibi aydınlattı. Sn: beab05 sorulan soru herkese sorulmuştur, bu forum kimseye münhasır değil, lütfen bilginizi bizimle paylaşın. Yukarıya yapıştırdığınız örnek muhtemelen bizim işimizi görecektir. Pek kıymetli vaktinizi kısır tartışmalara hasretmeyiniz lütfen.

Tekrar teşekkür ederiz.

Levent Menteşoğlu · 6 Şubat 2008

Sn gulsum1 her yazdığınız mesajı sonunda bir polemiğe dönüştürmeyi başarıyorsunuz. Ben bu durumun daha fazla devam etmesine izin veremem, sizden ricam mesajlarınızı bundan sonra kendi forumunuzda yayınlamanızdır. Bu forumda mesaj yazmanıza bundan sonra izin verilmeyecektir. Sn gulsum1'e soru sormak isteyen üyelerimizde lütfen aşağıdaki adrese yönelsinler.

www.accessforum.org

otomatik e-mail gönderme

akd

Destek Ekibi

gulsum1

akd

Destek Ekibi

assenucler

Ersen

beab05

Özel Üye

baydeniro

gulsum1

beab05

Özel Üye

akd

Destek Ekibi

beab05

Özel Üye

gulsum1

beab05

Özel Üye

gulsum1

Ersen

modalı

beab05

Özel Üye

akd

Destek Ekibi

Ersen

Levent Menteşoğlu

Administrator