outlook mail gönderirken hata

[ezginur]

outlookla mail göndermeye çalışırken böyle bi hata veriyor

burada hata veriyor sarı oluyor burası
Set outapp = CreateObject("Outlook.Application")
neden hata veriyor daha önce vermiyordu

 

[Haluk]

VBA'nin hata mesajını görünce aklıma Cem Yılmaz'ın "GORA" filmi geldi ......


"...... Kaptan, tanımlamayan uçan bir cisim geliyor"

Uzay gemisi kaptanı Cem Yılmaz'ın cevabı da;

".... ulan bir kere de tanımlayın şunu be ..... her seferinde aynı şeyi söylüyorsunuz"

.

 

[ezginur]

Haluk bey hoş espri ama neydecük şimdi email gönderemiyorum

 

[Haluk]

Kullandığınız Ofis versiyonu daha önce 32 bit iken şimdi 64 bit mi kullanıyorsunuz?

.

 

[ezginur]

evet yeni girdim işe burdaki 64 ama bi çalışıyo bi çalışmıyo

 

[Haluk]

.......... ama bi çalışıyo bi çalışmıyo

Cisim hakikaten tanımlanamıyor demek ..... o zaman işiniz zor.

Şimdilik şöyle deneyin;

1) VBA editöründe Tools > References ile çıkan pencerede "Missing" işaretli referanslar varsa bunların yanındaki onay işaretlerini kaldırın.

2) Aynı pencerede, "Microsoft Outlook XX Object Library" referansını bulun, bunu işaretleyin.

3) Kodunuzdaki Set outapp = CreateObject("Outlook.Application") satırını ve eğer varsa, Dim outapp as XXXXXX satırını da silin ve bunların yerine;

Dim outapp  As New Outlook.Application
Set outapp  = New Outlook.Application

Ayrıca, kodunuzun bir yerinde mail item nesnesinin oluşturulduğu bir satır olması gerekir. Örneğin; myMessage gibi ...... Onunla ilgili satırları da bulup, onun yerine;

Set myMessage = outapp.CreateItem(olMailItem)

yazın, sonra kodu bir daha çalıştırıp deneyin ....


.

 

[ezginur]

olmadı
burda hata verdi ta en baştan
Set outapp = New Outlook.Application

 

[Haluk]

2. maddede dediğim referansı işaretlediniz mi?

Ayrıca, verdiği hata nedir?

.

 

[ezginur]

yine aynı hatayı veriyor

 

[ezginur]

bunu çözmek zorundayım herşey yarım kaldı

 

[Haluk]

Registery'de aşağıdaki gibi bir anahtar var mı?

HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}

.

 

[ezginur]

nerelere soktunuz beni böyle bulana kadar canım çıktı Haluk bey var dediğiniz yer

 

[Haluk]

İdare ediceksiniz artık ...

.

 

[Haluk]

-Dediğim anahtar varsa, bu anahtarın ismini değiştirin, sonra kaydedip editörden çıkın.

-PC'i restart yapıp, kodu tekrar deneyin.

-Aynı hatayı veriyorsa yaptığınız değişikliği iptal edin,

.

 

[ezginur]

yapıyımda birşeyi etkilemesin sakın şirketin bilgisayarı ya bu yeni girdim zaten

 

[Haluk]

En kötüsü Ofis programı bozulur ....

Yeniden yüklenirken siz de 32 bit olanından istiyorum dersiniz .....

.

 

[ezginur]

hayır yine olmadı aynı hatayı verdi olmıycak herhalde
64 bit te nasıl olcak bu mailler anlamadım bi çözümü olması gerek
teşekkürler Haluk bey

 

[Haluk]

Üzüldüm ..... doğrusu.

Ama kodlarınızı size daha önce bahsettiğim gibi Late Binding yerine Early Binding yaptınızsa (CreateObject kullanılmaması yani ......), çalışması gerekirdi...

Kullandığınız Ofis versiyonunu 32 bit ile değiştirme imkanınız varsa, o da işinizi görür.

Neyse, umarım sorununuz bir şekilde çözülür.

.

 

[ezginur]

teşekkür ederim Haluk bey
malesef öyle bi şansım yok
bi yolunu bulunca haber verebilirmisiniz?

 

[Haluk]

Yeni bir Excel dosyasında aşağıdaki kodu dener misiniz?

Sizin dediğinize göre, bu kodda hata vermesi lazım ....

Sub Test()
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
End Sub

.