Mail gönderirken alınan Run-time error 440:Automation Error hatası

[burakturk]

Arkadaşlar merhaba,
Daha önce buradan yardım alarak hazırladığım bir kod ile alakalı Run-time error "440": Automation error hatası almaktayım.

Yapmak istediğim şey, hazırladığım dökümanı PDF olarak belirlediğim konuma kaydederek bu dosyayı belirlediğim kişilere mail olarak gönderilmesi.

Bir çok şey denedim ancak bir türlü bu hatadan kurtulamadım. Bu hata hakkında bilgi ve yardımcı olabilir misiniz?

Şimdiden çok teşekkür ediyorum.

Kullandığım kod aşağıdadır;

Sub PdfKaydetGonder()
    ActiveWorkbook.RefreshAll
        Application.DisplayAlerts = False
        ChDir "C:\Users\burak\OneDrive\Masaüstü"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\burak\OneDrive\Masaüstü\MTSA - " & Date, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Dim OutApp As Object, OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    OutMail.BodyFormat = 2
        With OutMail
            .To = "xxxxxx@ozmanoto.com, xxxxxx@ozmanoto.com"
            .CC = "xxxxxx@lastikburada.com"
            .Subject = "Müşteri Temsilcisi Günlük Satış Adetleri" & Date
            .Attachments.Add = "C:\Users\burak\OneDrive\Masaüstü\MTSA - " & Date & ".pdf"
            .Body = "Merhaba," & Chr(10) & _
            Date & "tarihli müşteri temsilcisi satış adetleri raporu ekte bilgilerinize sunulmuştur."
            .Display
            '.send
        End With
    Set OutMail = Nothing: Set OutApp = Nothing
End Sub

 

[Emir Hüseyin Çoban]

.

.Attachments.Add = "C:\Users\Hüseyin ÇOBAN\Desktop\Deneme_01\MTSA - " & Date & ".pdf"

Bu satırdaki = (eşittir) olmamalı...

.

 

[Trilenium]

.Attachments.Add "C:\Users\burak\OneDrive\Masaüstü\MTSA - " & Date & ".pdf" olarak düzenlemelisiniz.

 

[burakturk]

Merhaba,
Yardımlarınız için teşekkür ederim. Bu sorunumu giderdi, ellerinize sağlık..

Bu kodlara mail gönderilmeden önce timer eklemek istiyorum, dosya açılınca bir msgbox çıkacak iptal ve devam şeklinde iki düğme olacak, 60sn geri sayacak geri sayım bitince bu kodlardaki işlemleri gerçekleştirecek. eğer iptale basılırsa işlemi iptal edecek tamama basılırsa geri sayımı atlayarak bu kodları yine çalıştıracak.

bir kaç tane örnek buldum bununla alakalı ancak işlemi iptal eden bir kod bulamadım.

 

[Emir Hüseyin Çoban]

.

İşlemlerin tablo açılışında otomatik olması için AC makrosunun ismini AUTO_OPEN olarak değiştirebilirsiniz.
Dosyanız ektedir.

.

 

[burakturk]

.

İşlemlerin tablo açılışında otomatik olması için AC makrosunun ismini AUTO_OPEN olarak değiştirebilirsiniz.
Dosyanız ektedir.

.

Alakanız için teşekkür ederim tam istediğim bu.

ama nedense bende bulunan dosyada doğru bir şekilde çalıştıramadım.

object not found veya private sub not defined gibi hata alıyorum.

 

[Emir Hüseyin Çoban]

.

Hataların ekran görüntüsünü ve debug tıkladığınızda hangi satıra gidiyor. Gösterirseniz inceleyebilirim.

.

 

[burakturk]

Kusura bakmayın böyle programı parça parça size yazdırıyormuş gibi oldum biraz, Makro ile yeni yeni haşır neşir olmaya başladım, mazur görün lütfen.

Çalıştırdığımda verdiği hata bu şekilde;



Debug satırı bu görünüyor; UserForm1 objesini bulamıyor zannedersem, nasıl tanımlayacağımla alakalı bir fikrim yok malesef.

 

[Emir Hüseyin Çoban]

.

Userform1 nesnesini kendi tablonuza aktardınız mı.

.

 

[burakturk]

.

Userform1 nesnesini kendi tablonuza aktardınız mı.

.

evet nesneyi de ekledim ancak hata farklı bir sebeptenmiş.

nesne ismi değişmiş, hallettim.

istediğimden bir tık daha iyi oldu. tekrar emeği geçenlere teşekkür ederim