Makro ile mail atma problemi

[gurcan21]

Arkadaslar merhaba,

Sitedeki eski entrileri inceledim fakat calismalarim hep hata verdi. yapmak istedigim seyi kisaca anlatayim.
Sayfa1 de yer alan A sutunundaki mail adresine outlook 2003 uzerinden konu basligi B sutununda, mesaj iceri C kolonunda yazan verileri commandbutton ile direk mail atmak istiyorum. Kod konusunda yardimci olursaniz sevinirim.

Tesekkurler

 

[mesuttasar]

http://www.excel.web.tr/f48/excel-ile-mail-atmak-t19214.html arama yaptığınıza eminmisiniz?

 

[gurcan21]

Hocam,

Linke ben de daha önce ulaştım ama linkteki ekli dosyaya ulaşılamıyor.O yüzden tekrar sormak istedim.

 

[ffff7]

Tools > References (referans) lardan
'Microsoft Outlook 11.0 Object Library' seçili durumda olmalıdır.

    Private Sub CommandButton1_Click()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    With NewMail
    .To = Sheets("Sayfa1").[A1]
    .CC = ""
    .Subject = Sheets("Sayfa1").[B1]
    .Body = Sheets("Sayfa1").[C1]
    '.Attachments.Add Mail_Dosyası    'dosya ekler
    .Display   'Maili ekrana getirir.
    '.Send    'Maili direk gönderir.
    End With
    Set OutApp = Nothing
    Set NewMail = Nothing
    End Sub

Kolay gelsin.

 

[gurcan21]

Hocam 2. satirda compile error verdi.

"user defined type not defined" nasil cozebilirim?

 

[gurcan21]

tesekkur ederim sorunu cozdum.

 

[dduygushh]

evet verilen linkteki dosyaya ulaşılamıyor.

Benim soruma da cvp verebilir misiniz?

Ben excel içinden windows komutunda olduğu gibi çalışma kitabının bir kopyasını (save edilmiş şekliyle) e-posta ile göndertmek istiyorum. yani excel içinde mail to komutunda windows komutunda olduğu gibi çalışma kitabının bir kopyasını da gönderecek. bunun komutu nedir?

teşekkürler

 

[baydeniro]

Teşekkürler