mail body kısmına resim ekleme

[ekmekevi]

arkadaşlar bir dizi teklif hazırlıyorum ve mail gönderiyorum yapamadığım body kısmına etiket sayfasındaki (resim1) adlı şekli ekleyemedim yada resimi yardımcı olabilirmisiz

Private Sub Cmd4_MailGönder_Click()
Dim pdfdosya, Objoutlook, outmail, resim1 As Variant
Call Cmd4_PdfOlustur_Click

Application.ScreenUpdating = False

pdfdosya = ThisWorkbook.Path & "\" & "Pdf_dosya" & "\" & txtfirmaadi.Value & txtteklifno.Value & ".pdf"
Set Objoutlook = CreateObject("Outlook.Application")
Set outmail = Objoutlook.CreateItem(0)
With outmail
.Display
.Subject = "Teklif Dosyası"
.body = resim1 & " İSTEMİŞ OLDUĞUNUZ FİYAT VE TEKLİF EKTE SUNULMUŞTUR BİLGİNİZE" & vbNewLine & cmbteklifveren
.body.Add ThisWorkbook.Path & "\" & "xxresimxx.jpg"
.Attachments.Add pdfdosya
.To = La4_Email.Caption
.Display
'.Send
End With
Application.Wait (Now + TimeValue("00:00:15"))

Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Forumun arama kutusuna aşağıdaki ifadeyi yazın ve çıkan konuları inceleyin.

mail+resim

 

[ekmekevi]

Forumda arama yaptım mail gönderiyorum fakat body kısmına resim eklemeyi bulamadım

 

[Korhan Ayhan]

İnceleyiniz.

mail body kısmına resim eklemek

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üş...

www.excel.web.tr