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
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.
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
hocam mesajda geliyo fakat gelen mesaj çok biçimsiz bişey anlaşılmıyor. bişeyler yapma şansınız varmı
(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
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.