outlook mail gönderim hatası

[demirtas]

Aşağıdaki kodu kullanarak excel üzerinden mail gönderebiliyorum ama iş arkadaşlarımdan birinin bilgisayarında çalışmıyor Ekli dosyada yer alan hatayı alıyorum
(run-time error '429': ActiveX component can't create object)

Excel sürümünden kaynaklandığını düşündüm ama diğer excel 2000 sürümlerinde kod çalıştı Onun bilgisayarına has bir hata olduğunu sanıyorum ama bir türlü çözemedim Yardımcı olabilirseniz sevinirim..

(kod kaynak: http://www.rondebruin.nl/sendmail.htm)


Sub Mail_small_Text_Outlook2()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = Sheets("sheet7").Range("a1")

With OutMail
'.from = "limart"
.To = "limart@finansbank.com.tr"
.CC = ""
.BCC = ""
.Subject = " ait limit artisi hakkinda"
.Body = strbody
.Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[alpi]

Set OutApp = CreateObject("Outlook.Application")Satırında hata alıyorsanız arkadaşınızın bilgisayarında Outlook kurulu olamayabilir.

 

[demirtas]

Evet, bu satırda hata almaktayım
Fakat arkadaşımın bilgisayarında outlook 2003 kurulu

böyle olunca hata vermesi de anlamsızlaşıyor tabi..

 

[alpi]

dosyanızın VBA kod editörünü açın Tools/Referances'i seçin Açılan pencerede "Microsoft Outlook 00.0 Object Library" referansının yanındaki onay kutusunu işaretleyip Tamam'ı tıklatın

 Set OutApp = CreateObject("Outlook.Application")

Satırını silip yerine

 Set OutApp = New Outlook.Application

yazın.

Kodlarınızı şimdi çalıştırın.

 

[eskala]

kodu nereye yazıyosunuz

Sn. Demirtaş, e mail nasıl gönderiyorusnuz, kodu nereye yazmamız gerekiyor.

 

[demirtas]

Sn. Alpi

"Microsoft Outlook 11.0 Object Library" kısmı işaretledim.
Dediğiniz şekilde de kodları değiştirdim fakat ekli hatayı verdi bu seferde..

Sn. Demirtaş, e mail nasıl gönderiyorusnuz, kodu nereye yazmamız gerekiyor.

Sn. Eskala

Kodlar visual basic editor sayfasında yeni modüller açıyorsunuz
Onların içine yazılıyor..

 

[demirtas]

Konu hakkında bir fikri olan yok sanırım??

 

[alpi]

Eroro in loading DLL = DLL yükleme hatası.

Referansı içeren dosya bozulmuş olabilir. Sizinkiyle aynı sürüme sahip office programı olan birinin bilgisayarından "msoutl.olb" dosyasını alıp kendinizinkiyle değiştirin.

"msoutl.olb" dosyasının bulunduğu yer(eğer office'nin varsayılan kurulum ayarlarını değiştirmeden kurduysanız.) şurasındır.
"c:\ProgramFiles\Microsoft Office\Office11\msoutl.olb"

Buda çözüm olmazsa sorununuzu çözemiyorum demektir.

 

[demirtas]

Maalesef alpi..
sorun yine çözülmedi.

tekrar ofis/excel kursak ya da ofis 2003 kursak düzelir diye düşünüyorum