(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