Excelden Outlooka veri yapıştırma

[ASMET67]

Merhabalar.
excelden outlook aracılığa ile mail gönderirken excelden kopyaladığımız bir veriği outlooka resim olarak yapıştırabilirmiyiz.

 

[anemis]

PRTSCR tuşunu kullanabilirsiniz.

 

[ASMET67]

VBA kodu olarak nasıl yapabilirim?

 

[Emir Hüseyin Çoban]

.

Ekte resim olarak göndersek işe yarar mı.

.

 

[PLİNT]

VBA kodu olarak nasıl yapabilirim?

Merhaba
Ek dosya işinize yarayabilir

[SIZE="2"]Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Dim objMail As Object, objOutlook As Object
Dim s As Long
Set s1 = Worksheets("Sayfa1")
Call s1.Range("A1:D10").CopyPicture(xlScreen, xlPicture)
 Set objOutlook = CreateObject("Outlook.Application")
  Set objMail = objOutlook.CreateItem(0)
                With objMail
                    .display
                    .To = "kime"
                    .CC = ""
                    .Subject = ""
                    .display
                     .HTMLBody = .HTMLBody & "<br><B>SAYFADAN BİR KESİT RESMİ:</B><br>" & "<br>" & "<br>"
                    '.Attachments.Add
                    '.send
                    '.Save
                End With
               Set wrd = objOutlook.ActiveInspector.wordEditor
 s = wrd.Paragraphs.Count
 wrd.Paragraphs(s).Range.InsertParagraphAfter
 wrd.Paragraphs(s + 1).Range.Select
 wrd.Application.Selection.Paste
End Sub[/SIZE]

http://s5.dosya.tc/server5/eoh4qe/resimli_msg.zip.html

 

[ASMET67]

Teşekkürler tamda istediğim böyle birşeydi