(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