New Outlook.Application hatası

[metinak]

Aşağıdaki kod blogu ile excel dosyasındaki verileri e posta olarak gönderebiliyordum. Office sürümü ve windows sürümleri değişti 2010 oldu ve New Outlook.Application hatası veriyor.
Bu problemi nasıl çözebilirim?

Private Sub cmdsend_Click()
Set OutApp = New Outlook.Application
a = txttuzdtn.Text
b = txttuzbtn.Text
c = txtamonyak.Text
d = txtnitrik.Text

Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "tg@oz.com.tr;buo@oz.com"
.CC =
.Subject = "Stoklar"
.Body = "Tank doluluk:
.display '.Send '.diplay
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[bugrakaratas]

Sayın Metin Ak;
Aşağıdaki kod ile yapabilirsiniz.

Private Sub cmdsend_Click()
'Excel 2000-2016 da çalışır
'Üzerinde çalışılan dosyayı kapattığınızda otomatik mail atar

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "" 'maili göndermek istediğiniz adresi yazınız
.CC = "" 'bilgi kısmına eklemek istediğiniz mail adresini yazınız
.BCC = "" 'Gizli bilgi isterseniz eklersiniz
.Subject = "Güncel dosya" 'Konu bölümüne istediğiniz metni yazabilirsiniz
.Body = "" 'Mailin gövde kısmına istediğinizi yazabilirsiniz
.Attachments.Add ActiveWorkbook.FullName
.Display 'ben göster olarak display yazdım. Siz kodu .send olarak değiştiriniz.
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Korhan Ayhan]

Alternatif;

Referans problemi yaşadığınızı düşünüyorum.
Dosyanızı açın ve ALT+F11 tuşlarına basarak kod editörünü açın.
TOOLS-REFERENCES menüsüne tıklayın.
Açılan ekranda MISSING ile başlayan seçenek varsa pasif yapın.
Aynı ekranda aşağıdakine benzer bir kütüphane olacak onu aktif hale getirin. Kırmızı bölüm sizde farklı olabilir.

Microsoft Outlook [COLOR="Red"]16.0[/COLOR] Object Library