mail body kısmına resim eklemek

burcin_end_muh · 1 Mayıs 2018

merhabalar,

forumda fazlasıyla arama yaptım ancak istediğim gibi bir sonuç elde edemedim.

dosyamdaki sayfa1 b2:f35 aralığını mailin body kısmına resim eklemek istiyorum. çok örnek var ama tam olarak bunu bulamadım.

burda aynı konu var ama farklı şekilde çözülmüş sanırım.http://www.excel.web.tr/archive/index.php/t-149057.html

Burda büyük bi çalışma var işime yarayan kısımlar zaten aldım.
http://www.rondebruin.nl/win/section1.htm

Yardımlarınız için teşekkür ederim şimdiden.

Korhan Ayhan · 1 Mayıs 2018

Eklediğiniz dosyadaki 2. modüldeki bahsettiğiniz makro ile mailin gövde bölümüne resim ekleniyor.

burcin_end_muh · 2 Mayıs 2018

Korhan Ayhan' Alıntı:
Eklediğiniz dosyadaki 2. modüldeki bahsettiğiniz makro ile mailin gövde bölümüne resim ekleniyor.

Merhaba Korhan Bey,

resim değil de tablo gibi ekliyor. yani eklediği kısımda yazıların üstüne tıklamaya çalıştığınızda düzeltme yapılabiliyor. Benim istediğim o tabloyu resim olarak yapıştırması.

Makro kaydedicisinden kopyalayıp resim olarak yapıştırdığımda ActiveSheet.Pictures.Paste.Select şeklinde komut yazıyor.

Yardımcı olabılırsenız çok sevinirim. iyi günler dilerim

THYExcelGuru · 2 Mayıs 2018

Merhaba
Seçtiğin tabloyu tekrar picture şeklinde yapistirabilirsin ayni range üzerine. Sonra ikinci belirttigin kod ayni gorevi yapacaktir.

burcin_end_muh · 2 Mayıs 2018

THYExcelGuru' Alıntı:
Merhaba
Seçtiğin tabloyu tekrar picture şeklinde yapistirabilirsin ayni range üzerine. Sonra ikinci belirttigin kod ayni gorevi yapacaktir.

Merhaba,
birinci kodun ilgili kısmını düzeltebilir misiniz? deniyorum ama asla olmuyor.
Şimdilik uzun bi çözüm kullanıyorum. Tabloyu resim olarak c ye kaydediyorum ordan mail içeriğine taşıyorum sonra c den siliyorum.

yardım ederseniz çok sevinirim.

Zeki Gürsoy · 2 Mayıs 2018

Ekteki dosyayı inceleyin...

Kod:

Sub Embedded_Picture_onMail()
    Application.ScreenUpdating = False
    
    tmp = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\pic.jpg"
    
    Set r = ThisWorkbook.ActiveSheet.Range("b2:f35")
    
    ExportPicture r, tmp
    
    Set App = CreateObject("Outlook.Application")
    
    Set Itm = App.CreateItem(0)
    
    Itm.Attachments.Add tmp
    
    Itm.HTMLBody = "<html><img src='cid:" & Dir(tmp) & "'></html>"
    
    Application.ScreenUpdating = True
    
    Itm.Display
End Sub

Private Sub ExportPicture(ByVal rng As Range, ByVal tmpfile As String)
    rng.CopyPicture
    
    Set graf = ThisWorkbook.ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
    graf.Select
    With graf.Chart
        .Paste
        .Export tmpfile
        .Parent.Delete
    End With
End Sub

burcin_end_muh · 3 Mayıs 2018

Merhaba Zeki Bey,

Öncelikle yardımlarınız için çok çok teşekkür ederim. Tam olarak istediğim şey buydu. Bazı eklemeler yaptım ve bir sorum daha olacak;

şimdi resim olarak yapıştırınca yukarıdaki yazılı kısım çok hoş durmadı, eğer mümkünse şunu yapmak istiyorum;

yukarıdaki ilk iki satırı body ye yazı olarak eklemek sonrasında tabloyu resim olarak yapıştırmak ve son satırı yine boy ye yazı olarak eklemek.

tekrar yardımcı olabilirseniz çok sevinirim.

burcin_end_muh · 3 Mayıs 2018

Son mesajdaki sorduğum şeyi es geçelim, onun yerine resmin boyutunu değiştirmem benim için daha faydalı olacak. Bu konuda yardım edebilirseniz çok makbul geçer.

Teşekkür ederim

burcin_end_muh · 3 Mayıs 2018

burcin_end_muh' Alıntı:
Son mesajdaki sorduğum şeyi es geçelim, onun yerine resmin boyutunu değiştirmem benim için daha faydalı olacak. Bu konuda yardım edebilirseniz çok makbul geçer.

Teşekkür ederim

kendi sorumu cevaplayım;

Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft

bu şekilde çözdüm. Zeki bey tekrar çok teşekkür ederim.

mail body kısmına resim eklemek

burcin_end_muh

Ekli dosyalar

Korhan Ayhan

Administrator

burcin_end_muh

THYExcelGuru

burcin_end_muh

Zeki Gürsoy

Uzman

Ekli dosyalar

burcin_end_muh

Ekli dosyalar

burcin_end_muh

burcin_end_muh