PDA

Orijinalini görmek için tıklayınız : mail ile ekli dosya nasıl gönderebilirim.



onderozberk
19.08.2004, 17:17
Merhaba,

Masaüstünde bulunan "RAPOR.TXT" dosyasını onder@hotmail.com gibi bir mail adresine doğrudan bir butona basarak gönderme şansım olur mu? Nasıl bir kod yazmalıyım?

Muhammet AYTAŞ
20.08.2004, 01:39
Merhaba...

Sub EkliDosya_Gonder()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
With olNewMail
.Recipients.Add "onder@hotmail.com"
.Subject = "Dosya Adı"
.Body = "Merhaba"
.Attachments.Add "C:\Belgelerim\Rapor.txt"
.Save
.Display
End With
Set olNewMail = Nothing
Set olApp = Nothing
End Sub

onderozberk
20.08.2004, 11:37
Kodları yazdım ancak ikinci satır için Compile error : User-defined type not defined şeklinde bir hata veriyor.

Fikri EREN
20.08.2004, 11:44
Referanslara Microsoft Outlook x.0 Object Library i eklemelisin.

Not: x ile yazdım çünkü versiyona göre farklılık olabilir ....

Muhammet AYTAŞ
20.08.2004, 14:53
Merhaba...
Kodları dün gece Messenger'de bir arkadaşla görüşürken yapıştırdım,ancak ilgili kütüphaneyi işaretlemenizi yazmaya unutmuşuz.
Şiz yazmadan ben uyarayım.Kodları çalıştırınca ekrana M.Outlook uyarı iletisi gelecek,bunun çıkmasını nasıl önleyebiliriz derseniz cevabını bilmiyorum,belki bunun için gerekli Api kodları vardır,ancak araştırmak lazım.