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 = "[email protected]"

.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.