Send Email VBA

  1. 11 bulan yang lalu

    Selamat Sore semua

    Saya ingin meminta tolong mengirimkan data (spesified range) ke email termasuk format penulisan & gambar . Sejauh ini hanya mendapatkan rangenya saja . Sedangkan gambarnya tidak termasuk .

    Asumsi saya karena di module RangeToHTML terdapat code yg meremove all object(termasuk gambar) :

     .DrawingObjects.Visible = True
            .DrawingObjects.Delete

    . Tetapi jika code tsb dihapus ,maka gambarnya tetap tidak muncul alias blank frame.

    Saat ini saya menggunakan alternatif embed image . Dengan mengkombinasikan antara range pertama (atas) dan image serta range kedua(bawah).

    Saya berharap bisa (1) convert include image atau sbg alternatif (2) extrak image yg ada di activesheet ke spesifik path.

    mohon bantuannya rekan rekan sekalian .

    summon mas @Caton dan mas @diditsatriyadi .

    FYI
    ada beberapa yg saya remove/modify di coding tsb karena 1 dan lain hal .

    Terlampir contoh solusi dari saya mas @Fujiansyah92 ... Saya menggunakan proses embed picture. Proses untuk menyimpan gambar pada sheet saya buat ke dalam prosedur terpisah.

    Pada Module1 ada prosedur SelectedRangeToImage dari site ini yang bisa digunakan untuk proses konversi range berikut gambar yang ada pada range terpilih...

    Semoga bisa diaplikasikan... ;)

  2. Caton

    2 Jan 2018 Terverifikasi Jawaban Terpilih Indonesia + 12.596 Poin
    Di sunting 11 bulan yang lalu oleh Caton

    Terlampir contoh solusi dari saya mas @Fujiansyah92 ... Saya menggunakan proses embed picture. Proses untuk menyimpan gambar pada sheet saya buat ke dalam prosedur terpisah.

    Pada Module1 ada prosedur SelectedRangeToImage dari site ini yang bisa digunakan untuk proses konversi range berikut gambar yang ada pada range terpilih...

    Semoga bisa diaplikasikan... ;)

  3. @Caton Terlampir contoh solusi dari saya mas @Fujiansyah92 ... Saya menggunakan proses embed picture. Proses untuk menyimpan gambar pada sheet saya buat ke dalam prosedur terpisah.

    Pada Module1 ada prosedur SelectedRangeToImage dari site ini yang bisa digunakan untuk proses konversi range berikut gambar yang ada pada range terpilih...

    Semoga bisa diaplikasikan... ;)

    hmmp... ga kepikiran saya soal savepicture ini , pernah pakai tapi udah lama+lupa :D .... copy shape ke chart lalu di save ke spesifik path .

    saya sih prefer memilih function SavePicture mas ... karena saya ingin keep formatnya juga mas agar bisa di modify kata-katanya . memang jadi lebih rumit , tapi lebih sesuai kebutuhan daripada metode SelectedRangeToImage .

    Terima kasih mas @caton . Sangat membantu ...

  4. Caton

    2 Jan 2018 Terverifikasi Indonesia + 12.596 Poin

    Sama-sama mas @Fujiansyah92 ... Saya masukkan juga fungsi SelectedRangeToImage siapa tahu ada rekan-rekan lain yang membutuhkan... ;)

 

atau Mendaftar untuk ikut berdiskusi!