Mail

[mu_tek]

Merhaba Arkadaşlar,

Örnekteki formda onay kutusu işaretli ise formda yazan mail adresine formdaki mesajı mail atmak istiyorum ama outlok açılıpta benden send düğmesine basmamı beklemesin maili direk göndersin.

yardımlarınızı bekliyorum kolay gelsin.

 

[mu_tek]

Dosyayı eklemeyi unuttum ekliyorum şimdiden teşekkürler

 

[MURATT]

Merhaba Arkadaşlar,

Örnekteki formda onay kutusu işaretli ise formda yazan mail adresine formdaki mesajı mail atmak istiyorum ama outlok açılıpta benden send düğmesine basmamı beklemesin maili direk göndersin.

yardımlarınızı bekliyorum kolay gelsin.

bu mesaj outlook'un 5 sn. duvarı yani spam mailler için microsoft'un geliştirdiği bir koruma.Bunun için clickyes pro programını kullanmalısınız.
"windows işletim sistemi" üzerinden mailing yapacaksanız inanınki başka yolu yok bence hiç aramayın tecrübeyle sabitttir.

Clickyes pro'yu kurduktan sonra sonra yukarıda add aplication seçeneğinden outlok exe'yi ve yazdığınız koda göre acces exe'yi göstermelisiniz.
bazı kodlarda access exe gerekmiyor ama outlook exe kesinlikle şart.

 

[mu_tek]

Murat kardeş söylediğinden pek bişey anlamadım ama onay kutusundanda vaz geçebiliriz butona bastığımızda ekrandaki mesajı ekrandaki mail adresine mail atsın yeter

 

[MURATT]

daha nasıl açık anlatabilirim bilmiyorum ama ben her seferinde bu tuşa basmak istemiyorum diyorsan bu programı kurmak zorundasın.Bu program senin yerine yes'e basıyor.Çoğunlukla toplu mailingler için kullanılan bir çözüm.

 

[mu_tek]

aşağıdaki kod otomatik maili atıyor tek sorun hazırladığım raporu buraya nasıl eklettireblirim bu konuda yardım bekliyorum

Private Sub Command12_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim MsgBody, dosya As String
On Error Resume Next

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = Me.Email
.CC = ""
.BCC = ""
.Subject = "Günlük Satış Raporu"
.Body = Me.mesaj
'.Attachments.Add
.Display
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[MURATT]

koda eklenecek bir şey yok.
http://www.contextmagic.com/ftp/ClickYesProSetup.exe
- bu adresteki programı pcne kur
- Programı açıp üstte yeşil + ikonuna bas.
- Gelen pencerede 2. satırda yanında "..." yazan ikona bas.
- C:\Program Files\Microsoft Office\Office10\outlook.exe yi seç ve ok'e bas
- Aynı yerde "msaccess.exe" yi de ekle yine ok e bas.
- outlook'u ve ms access'i oraya ekleyecek programı aşağıya indir.
- Ve kodunu çalıştır...
İşin bitince de sağ alttan clickyes ikonuna sağ klik yapıp kapat...

 

[pcman]

Ek olarak
.Attachments.Add "C:\prg.zip", olByValue, 1

bu şekilde bilgisayarındaki bir dosyayı ekleyebilirsin

Ama access Raporu eklemek için Uzmanları göreve çağırıyorum...

 

[pcman]

evet arkadaşlar konuyu tamamlayalım