Gizli mail gönderme

[selimcengizince]

Merhaba,

Çalışma sayfasını, kullandığım makronun içine ekleyeceğim bir kodla, Hotmail üzerinden ekrandaki kullanıcıya hissettirmeden mail eki olarak atmak istiyorum..


Forumda bu konuyla ilgili okumadığım konu-mesaj kalmadı..fakat çözüme ulaşamadım..

 

[Zeki Gürsoy]

HTTP kullanarak bunu yapmak çok zahmetli. Kullanıcının bilgisayarında (eğer yüklüyse) outlook progrmında bir kereye mahsus hotmail hesabı ekleyin. Gerisi 3-5 satırlık kod...

Amacınız spy türü bir kod hazırlamak değilse, en stabil ve kolay çözümü önerdim size.

 

[selimcengizince]

Teşekkür ederim. Spy türü değil, dosyanın kullanım amacı; kasa ve şirketin muhtelif giderlerini tuttuğum bir excel çalışması..Bu forumdan öğrendiklerimle, tam istediğim gibi bir çalışma oldu.

Kullanıcı bu çalışma sayfasını, rapor olarak zaten gönderecek fakat benim amacım, sayfa içerisindeki makroya bir ilave kod yazarak, periyodik aralıklarla çalışmayı yedek alıp mail göndermek..yedek alma konusunu hallettim. Maksat, gelir ve giderlerde sonradan değişiklik yapılmasını engellemek, daha doğrusu denetlemek..

Engellemek için alabildiğim önlemleri aldım fakat, makrodan, vb kodlarından anlayan birinin, bu önlemleri aşabilmesi çok kolay olduğundan, en güvenli yolun bu olduğuna kanaat getirdim.

Dediğiniz şekilde outlook'ta mail hesabı açtım. Forumdaki konulardan çok araştırdım, uğraştım fakat hep bir yanı eksik kaldı. Kodları kendime göre bir türlü uyarlayamadım.

 

[selimcengizince]

Projem yarım kaldı..Yardımcı olabilecek arkadaşa acayip teşekkür ederim :mrgreen:

 

[abdullahss]

bu şekilde denermisiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("örnek@kfgfdkgfjdkg.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

 

[selimcengizince]

bu şekilde denermisiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("örnek@kfgfdkgfjdkg.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

Herhangi bir referans eklemem gerekir mi?

 

[airborne]

s.a.

Abdullahss yukarıda vermiş olduğunuz kodların nasıl kullanılacağı hakkında biraz bilgi verirrseniz memnun olurum. Zira biraz ticari hazırlanmış bir dosyam var. bunun kaçak kullanıldığının bana bilgi vermesi amaçlı olarak kullanacağım kodları

 

[Korhan Ayhan]

Yanlış anlamadıysam önerilen kod outlook ekranındaki (kime-bilgi-gizli) bölümündeki "gizli" seçeneğine mail adresi ekliyor.

Aşağıdaki linklerde konudan bahsedilmiş. İngilizcesi iyi olan bir üyemiz açıklarsa daha faydalı olacaktır.

http://msdn.microsoft.com/en-us/library/office/aa210271(v=office.11).aspx
http://www.outlookcode.com/codedetail.aspx?id=53

 

[abdullahss]

Herhangi bir referans eklemem gerekir mi?

Kodlari nereye nasil yazdigimi ekteki resimden görebilirsiniz.

bendeki referanslarda
-Visual Basic For Applications
-Microsoft Outlook 12,0 Object Library
-OLE Automation
-Microsoft Office 12.0 Objetc Library
-Microsoft Forms 2.0 Object Library

 

[baydeniro]

İlginç bir konu. Deneyeceğim. teşekkürler

 

[abdullahss]

Merhaba,

Çalışma sayfasını, kullandığım makronun içine ekleyeceğim bir kodla, Hotmail üzerinden ekrandaki kullanıcıya hissettirmeden mail eki olarak atmak istiyorum..


Forumda bu konuyla ilgili okumadığım konu-mesaj kalmadı..fakat çözüme ulaşamadım..

hotmail kodları

Sub HotmailYolla()
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
gonderilecekmailler = "xxxxxxxxxx"
mailadresim = "xxxxxxxxxxxxxx"
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.live.com"
Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = mailadresim
Flds.Item(schema & "sendpassword") = "xxxxxxxxxx"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = gonderilecekmailler
.From = "xxxxxxxxx <" & mailadresim & ">"
.Subject = "xxxxxxxxxx"
.HTMLBody = "<h2>Www.xxxx.com</h2><br><br>Bu posta xxxxx  yollanmıştır."
Set .Configuration = iConf
.Send
End With
End Sub