logolar oluşturulan mail gövdesine gelmemekte

[redwhitewolf]

Öncelikle İyi günler diliyorum.
Sitenizi ilgiyle takip ediyorum.
Sitede emeği geçen herkese sonsuz teşekkürler.

Benim sorunum eklemiş olduğum dosyada belirlenen hücre aralığını mail atma makrosunda
belirlenen alanda ( b26:gh34 ve ı26:n34 bandında) yer alan (image) logolar oluşturulan mail gövdesine gelmemekte ;

Sub Banka_Durumu()
'Office 2000-2010 sürümlerinde çalışır
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    Set rng = Nothing
    On Error Resume Next
    Set rng = Sheets("Mail").Range("ı2:n34").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If rng Is Nothing Then
       MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Banka Durumu"
        .HTMLBody = RangetoHTML(rng)
        .Display   'göndermek için .Send
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Sorunu acaba nasıl çözerim.
Yardımlarınız için şimdiden teşekkürler.

 

[Asri]

Buradaki excel dosyasını inceleyiniz.

http://asriakdeniz.com/excel-dogum-gunu-mail-ile-kutlama/

Belirli bir alanı JPG ye çeviren kod.
Kullanımı Call createJpg("Kart", "C2:O30", isimstr)

Sub createJpg(Namesheet As String, nameRange As String, nameFile)
    ThisWorkbook.Activate
    Worksheets(Namesheet).Activate
    Set Plage = ThisWorkbook.Worksheets(Namesheet).Range(nameRange)
    Plage.CopyPicture
    With ThisWorkbook.Worksheets(Namesheet).ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height)
        .Activate
        .Chart.Paste
        .Chart.Export Environ$("temp") & "\" & nameFile, "JPG"
    End With
    Worksheets(Namesheet).ChartObjects(Worksheets(Namesheet).ChartObjects.Count).Delete
    Set Plage = Nothing
End Sub

 

[redwhitewolf]

dediğiniz kodu nereye yapıştıracağım?
commond buton atadım çalışmadı

 

[Asri]

dediğiniz kodu nereye yapıştıracağım?
commond buton atadım çalışmadı

Örnek dosyanızı , dosya.tc yada dosya.co ya yükleyip link veriniz

 

[redwhitewolf]

örnek dosya aşağıdaki linke yüklenmiştir.

http://s9.dosya.tc/server2/f4csjh/Belirlenen_Hucre_Araligini_Mail_Atma.rar.html


ilginiz için teşekkürlerimi sunarım

 

[Asri]

Aşağıdaki şekilde deneyiniz.

http://dosya.co/5hj1jlpfd84r/Belirlenen_Hücre_Aralığını_Mail_Atma.xls.html

 

[redwhitewolf]

üstadım dosyayı denedim
çalışıyor çok teşekkür ediyorum.Sağ olunuz.
sadece sıkıntım şu
eklediğim jpeg görüntüsünde görüldüğü üzere
logo için belirlediğiniz alanın etrafında çizgi oluşturmakta,
bunu nasıl çizgisiz oluşturabiliriz

 

[Asri]

üstadım dosyayı denedim
çalışıyor çok teşekkür ediyorum.Sağ olunuz.
sadece sıkıntım şu
eklediğim jpeg görüntüsünde görüldüğü üzere
logo için belirlediğiniz alanın etrafında çizgi oluşturmakta,
bunu nasıl çizgisiz oluşturabiliriz

Excel deki görüntü resim olarak alındığı zaman çerçeve gibi izi kalıyor.
Biçimlendirme ve kesim alanlarını değiştirmeyi denedim ama çizgilerin tamamı yok olmadı.

Çözüm bulan biri çıkabilir.