Tabloyu mail ile gönderme

[OoParadiSeoO]

Arkadaşlar merhaba,

Aşağıdaki kodlar ile excel dosyasını mail olarak gönderebiliyoruz. Fakat benim istediğim dosyayı değilde dosyanın içerisinde yer alan tabloyu mail gövdesine yapıştırıp göndermesi. Yardımcı olabilirmisiniz...

Sub Excel_ile_Mail_Gönderme()
Dim OutApp As Object, Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2
With Outmail
.To = "Buraya kendi mail adresinizi"
.CC = "Buraya CC yapmak istediğiniz mail adresini yazın"
.Subject = "Buraya konuyu yazın"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add "Buraya dosya yolunu yazın"
'Not: Dosya yolunu yazdıktan sonra tırnak işaretlerini kaldırın
.Display
'.Send 'Göndermek için .send den önceki ' tek tırnak işaretini kaldırın
End With
Set Outmail = Nothing: Set OutApp = Nothing
End Sub

 

[OoParadiSeoO]

Yardımcı olabilecek varmı arkadaşlar ?

 

[spacebar]

Sub Bilgileri_Tabllarak_Gonder()

On Error Resume Next
Dim saydeneme, saymaillistesi As Variant
Dim deneme As Range

sayfa_adı = ActiveSheet.Name
strdate = Format(Now, "dd-mm-yyyy ")

Set deneme = ActiveSheet.Range("A1:I21")
deneme.Select
'gönderilecek alanı seç'

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = [J1]
'j1 hücresine mail adresini yaz'
.Item.CC = ""
.Item.Subject = "Lütfen en kısa sürede cevap veriniz."
'konu açıklaması'
.display
.Item.Send
End With
Application.ScreenUpdating = True
End Sub

 

[OoParadiSeoO]

Sayın spacebar teşekkürler fakat ben iletinin gönderilmeden önce outlook yeni bir ileti sayfasının görüntülenmesini istiyorum. Yani outlook üzerinden iletiyi hazırlayacak ben sadece gönderimini sağlayacam..

 

[spacebar]

.Item.Send satırını .Item.Display olarak değiştiriniz.

 

[OoParadiSeoO]

Dediğinizi yaptım fakat herhangi bir değişiklik olmadı. İleti sayfası gelmedi.. Excel üzerinden değilde outlook ileti sayfasının gönderilmeden önceki son halinin gelmesini istiyorum..

 

[OoParadiSeoO]

Sayın üstadlar yardımcı olabilecek varmı?

 

[Emir Hüseyin Çoban]

. . .

Tablo yapısına göre mail gövdesinde görünümü değişiklik gösterir.
Tablonuzun örneğini yüklerseniz üzerinde çalışabiliriz.

. . .

 

[OoParadiSeoO]

Hüseyin Bey,

Tablo 2 sütundan oluşuyor fakat satır aralığı değişken.. Bu forma göre yardımcı olabilirmisiniz?