mesajla göndermek

[mias2627]

merhaba. ben bir excel dosyasına kod yazarak o excel dosyasını koda yazdığım mail adreslerine buton vasıtasıyla ek olarak göndermek istiyorum. nasıl yapabilirim?

 

[mias2627]

FORUmDAN BİR KOD BULDUM ANCAK BU HATA KODUNU ALIYORUM:

compile error:
User-defined type not defined.

 

[mias2627]

Kod buydu....

Sub SendEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "yusuf1400@hotmail.com"
.Subject = "Deneme"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add "C:\Users\yusuf\Desktop\çıkış evrakları oto 2.xlsm"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[Korhan Ayhan]

Kod editörünü açın. (ALT+F11)
TOOLS menüsünden REFERENCES seçeneğine tıklayın.
Açılan menüden aşağıdaki referansı işaretleyin. (XX.X yazan yere sayısal değer gelecektir.)

"Micrsoft Outlook XX.X Object Library"

Sonra kodu çalıştırmayı deneyin.

 

[mias2627]

teşekkürler. yazdım ancak mail gönderiyor da exceli ek olarak atmıyor...

 

[Korhan Ayhan]

Dosya yolunun doğruluğunu kontrol ediniz.