Satış Raporlarını Email Gönder

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,892
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

Arkadaşlar Firmalarsa Satış raporlarını mail olarak göndermek için yazılmış kodlarda aşağıdaki gibi hata alıyorum. Sebebini bulamadım.
Bilen arkadaşlar ilgilenebilirse memnun olurum.

aldığım hata aşağıda ki gibi

254714
 

Ekli dosyalar

md3m1ray

Altın Üye
Katılım
21 Şubat 2024
Mesajlar
163
Excel Vers. ve Dili
Excel 2021-tr-64 bit
Altın Üyelik Bitiş Tarihi
23-10-2025
merhaba olApp in tanımlamalrını bu şekilde dener misiniz

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,892
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026

md3m1ray

Altın Üye
Katılım
21 Şubat 2024
Mesajlar
163
Excel Vers. ve Dili
Excel 2021-tr-64 bit
Altın Üyelik Bitiş Tarihi
23-10-2025
mail deneme şansım yok şu an kusura bakmayın, yazıyorum siz test edin diye
olEmail in tanımlamalarını da aynı şekil değişip dener misiniz

Dim olEmail As Object
Set olEmail = olApp.CreateItem(0)
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,892
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
mail deneme şansım yok şu an kusura bakmayın, yazıyorum siz test edin diye
olEmail in tanımlamalarını da aynı şekil değişip dener misiniz

Dim olEmail As Object
Set olEmail = olApp.CreateItem(0)
Rica ederim kusura bakacak birşey yok. Bu şekilde de denedim aynı hatayı verdi
 

md3m1ray

Altın Üye
Katılım
21 Şubat 2024
Mesajlar
163
Excel Vers. ve Dili
Excel 2021-tr-64 bit
Altın Üyelik Bitiş Tarihi
23-10-2025
tamamdır eğer çözüm yazılmazsa yarın detaylı bakıp test ederim çözebilirsem paylaşırım
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,892
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar

Dosyamdaki aşağıda ki gibi tırnak işaretli kodlar yerine altındaki kodlarla değiştirdim. Düzgün şekilde çalıştı.

Kod:
'Dim olApp As Outlook.Application
Dim olApp As Object

'Dim olEmail As Outlook.MailItem
Dim olEmail As Object

'Dim olInsp As Outlook.Inspector
Dim olInsp As Object

'Dim wdDoc As Word.Document
Dim wdDoc As Object


'      Set olApp = New Outlook.Application
      Set olApp = CreateObject(" Outlook.Application")

  ‘                .BodyFormat = olFormatHTML
                  .BodyFormat = 2
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,566
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Dipnot;

Dim olApp As Outlook.Application şeklindeki tanımlamaların çalışması için referanslardan ilgili nesnenin kütüphanesini aktif etmeniz gerekiyor.

254723
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,892
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selamlar
@Korhan Ayhan Hocam
eklemiştim ama hata vermişti.
Verdiğiniz bilgi için teşekkür ederim.

254731
 
Üst