Dán dữ liệu hình từ Clipboard vào Outlook bằng cách nào?

Chia sẻ bởi:hands

★★★★★

Quảng cáo

Khi ta dùng lệnh Range(gi do).CopyPicture thì ta có 1 dữ liệu dạng picture trong ClipBoard. Khi ta mở OutLook và ấn phím Ctrl + V thì dán cái ảnh đó vào MailBody của OutLook.
Vậy có cách nào để thực hiện điều này bằng VBA hay không?
Mình dùng lệnh .GetText(1) thì chỉ cho ra Text mà thôi

Mình chỉ muốn xét trường hợp của Clipboard thôi không dùng cách khác. Vì viết hàm để lấy 1 range cho vào mailbody với đầy đủ định dạng thì mình biết cách viết code.

Mong các anh chị gợi ý.

Vậy sau khi CopyPicture, tại sao ta không lưu thành file trên đĩa rồi load vào Outlook có phải khỏe hơn không?
Việc copy và Save picture đương nhiên sẽ dùng VBA. Hải nghĩ sao?

Cái vấn đề làm em tức tưởi là tại sao dùng Ctrl +V thì dán được, nhưng không thể code theo cách này nên em bực bội. Nếu tạo thành file ảnh lưu vào đĩa rồi dán ra mailbody rồi kill cái file ảnh tạm đó thì em biết vì đã vọc code của các anh rồi.

Không biết Hải đang nói đến code nào? Vì nếu đúng là cái này:

Function PictureFromObject(ByVal Target As Object, Optional ByVal bType As Boolean = True) As IPictureDisp
  Dim hPtr As Long, hCopy As Long, PicType As Long
  Const CF_BITMAP = 2
  Const CF_PALETTE = 9
  Const CF_ENHMETAFILE = 14
  Const IMAGE_BITMAP = 0
  Const LR_COPYRETURNORG = &H4
  Const PicType_BITMAP = 1
  Const PicType_ENHMETAFILE = 4
  [COLOR=#ff0000]Target.CopyPicture , IIf(bType, xlBitmap, xlPicture)[/COLOR]
  ...................
  .................
End Function

thì xem như Hải đã làm trước đoạn màu đỏ rồi (CopyPicture). Phần còn lại là lấy nó ra từ trong clipboard chính là những đoạn code bên dưới đoạn màu đỏ ấy thôi (kết quả trả về là IPictureDisp, muốn làm gì tiếp tùy ý)
(tiếc là máy tôi không cài Outlook nên không thể thí nghiệm được)

www.giaiphapexcel.com/diendan/threads/d%C3%A1n-d%E1%BB%AF-li%E1%BB%87u-h%C3%ACnh-t%E1%BB%AB-clipboard-v%C3%A0o-outlook-b%E1%BA%B1ng-c%C3%A1ch-n%C3%A0o.87410/