Hatırlatma Otomatik mail atma

1 2 3 4
30/03/2011, 14:49

osman06

hocam istediğim açılan mesajı tamam tıkladığımda günde bi kere benim tanımlalayacağım maillere gitmesi göründüğü şekilde ve ayrıca yine açılan görünümde mail gönder bütonu olsu tıkladığımda önceden tanımladığım mailleri tikleyerek seçiyim ve onlarada ekran daki gibi görüntü gibi bi mail gitsin gibi
30/03/2011, 15:24

ozanakkaya

Ekteki uygulamada açılan mesaj kutusuna evet'i tıklarsanız belirleyeceğiniz mail adresine mail olarak gönderir.

LOGOO formundaki "Function SendMail()"de ' ile belirttiğim 'gönderenin mail adresi, 'gönderenin şifresi, 'giden mailin konusunu değiştir şeklinde açıklama yazdığım kısımları kendi gmail kullanıcı adı, şifreni ve mail konusunu değiştir.



30/03/2011, 15:40

osman06

hocam öncelikler elinize sağlık bi sorum olacak mail tanımlamalarını kod içinde yapacam anladım kadarıyla birde mail tanımlayıp seçip gönderme yok heralde burda doğrumu anladım acaba
hocam artı maile çıkan ekrandaki cinsi bitiş tarihi açıklama ekipman bilgilerininde gitmesi gerekli
30/03/2011, 16:09

osman06

hocam mesajda geliyo fakat gelen mesaj çok biçimsiz bişey anlaşılmıyor. bişeyler yapma şansınız varmı
30/03/2011, 17:01

ozanakkaya

(30/03/2011, 15:40)osman06 yazdı: hocam öncelikler elinize sağlık bi sorum olacak mail tanımlamalarını kod içinde yapacam anladım kadarıyla birde mail tanımlayıp seçip gönderme yok heralde burda doğrumu anladım acaba

Seçerek göndermekten kastınız farklı kişiler seçip seçilen kişilere mail göndermek mi yoksa farklı veriler seçip sadece bu verileri göndermek mi istiyorsun. Her ikisi içinde form oluşturman gerekli, formdan verileri seçeceksin ve bu verileri göndereceksin. Her ikisi içinde eklediğim kodu kullanabilirsin.

(30/03/2011, 15:40)osman06 yazdı: hocam artı maile çıkan ekrandaki cinsi bitiş tarihi açıklama ekipman bilgilerininde gitmesi gerekli

Gördüğüm kadarıyla bu bilgiler gönderiliyor.


(30/03/2011, 16:09)osman06 yazdı: hocam mesajda geliyo fakat gelen mesaj çok biçimsiz bişey anlaşılmıyor. bişeyler yapma şansınız varmı

Fonksiyonu aşağıdaki ile değiştir.
Function SendMail()
Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "wwww.net@gmail.com" 'gönderenin mail adresi
Flds.Item(schema & "sendpassword") = "44444" 'gönderenin şifresi
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
'veri1 = ""
With iMsg
.To = "aaaaa@hotmail.com"
.From = "deneme"
.Subject = "Otomatik Mail Deneme2" 'giden mailin konusunu değiştir
.HTMLBody = strNot& vbCrLf & strNot2
.Sender = "xx"
.Organization = "awww@gmail.com" 'gönderenin mail adresi
.ReplyTo = "wwww.net@gmail.com" 'gönderenin mail adresi

Set .Configuration = iConf
.Send

End With

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

End Function

veya linkteki 10. mesajda bulunan örneği incele.

Birden Fazla Rapor'u excel'e Aktarıp Aynı Mail'de Göndermek
31/03/2011, 00:00

ozanakkaya

Uygulamanıza hatırlatmalar2 adında form ekledim. bu form üzerinden veri seçip komut butonuna tıklarsanız seçtiğiniz veriyi mail olarak gönderir.
1 2 3 4