arkadaşlar ben excelden otomatik mail atan bir modül hazırladım. bir veritabanından yeni bir dosya oluşturulup bir arşive kaydeden ve bu dosyayı dosya sahibinin mail adresine atan bir program. ve bunu yaklaşık 300 dosya oluşturup ayrı 300 kişinin mailine atıyor.
MS Office 2003 en kullanıyorum.
'kullandığım kodları yine sağolasınız ki sizden (http://www.excel.web.tr/viewtopic.php?t=2160&postdays=0&postorder=asc&start=1) linkden aldım.
"...
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = mail
.Subject = "xxx"
.Body = "bakalım alabilecek misiniz?"
.Attachments.Add dosyakonumu
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
.."
mail çalışıyor ancak bana aşağıda gördüğünüz şekilde bir uyarı veriyor
bu uyarıyı hiç almadan ve o bahsettiği 5 saniyeyi beklemeden gönderme şansım var mı?
MS Office 2003 en kullanıyorum.
'kullandığım kodları yine sağolasınız ki sizden (http://www.excel.web.tr/viewtopic.php?t=2160&postdays=0&postorder=asc&start=1) linkden aldım.
"...
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = mail
.Subject = "xxx"
.Body = "bakalım alabilecek misiniz?"
.Attachments.Add dosyakonumu
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
.."
mail çalışıyor ancak bana aşağıda gördüğünüz şekilde bir uyarı veriyor
bu uyarıyı hiç almadan ve o bahsettiği 5 saniyeyi beklemeden gönderme şansım var mı?
