Excel ile mail gönderimi

[Nazmi YAZICI]

Mrb,
Aşağıdaki kodları forum'dan aldım ancak Dim app As Outlook.Application
ve Dim posta As Outlook.MailItem satırlarında User-defined type not defiden hatasını veriyor.

Yardımınız için teşekkür ederim.
Syg.


Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = txtemail.Value
.CC = ""
.BCC = ""
.Subject = "YEDEK PARÇA AMBAR RAPORU "
.body = txtbastar & " ve " & txtbittar & " Tarihleri arasındaki, " & lblbolum & " - " & lbldurum & " - " & lblfirma & " - " & lblsipver
.Attachments.Add "D:\RaporEmail.xls"
.Send
End With

 

[Haluk]

VBE' de ilgili referansı eklemeniz gerekiyor.

Tools >> References

 

[turkanet]

ilgili referans Microsoft Outlook x.0 Object Library mi? benim pc'de yok. nerden bulabilirim?
winxp sp2, outlook 6

 

[veyselemre]

msoutl.olb

ekteki dosyayı deneyin

 

[turkanet]

teşekkür ederim, yükledim fakat daha çok yardıma ihtiyacım var. outlook express kullanıyorum ve kitap1 deki sayfa1 i deneme@hotmail.com a göndermek istiyorum. bunun kodunu yazabilir misiniz?

 

[veyselemre]

zannedersem outlook express kullanarak yapamazsın outlook kullanarak yapabilirsin

 

[turkanet]

ms outlook yükledim

butona bastığımda;
A1'de yazanı "konu" kısmına yazıp, sabit bir email adresine yollaması için nasıl bir makro yazmam gerek?
şimdiden teşekkürler