Mail from excel with outlook

  1. 6 tahun lalu

    Ass... Rekan2
    Mohon dapat dibantu rekan2 master.... 2 hal sbb;
    1. Saya sudah mencoba rumus macro terlampir.... apabila dengan single alamat email sudah saya coba berfungsi.
    namun ketika saya ganti alamat email menggunakan range tidak bisa.... mohon dibantu file terlampir.
    2. Marco file ini bisa di aktifkan permanen di menu excel ngk yah.... sehingga tidak di insert terus-menerus.
    terima kasih sebelumnya

  2. Di sunting 6 tahun lalu oleh Fujiansyah92

    Wa'alaikum salam...

    wah macronya tdk ada mas . karena formatnya xlsx (excel workbook) . jadi macronya tdk bisa tersimpan.

    Jika ingin menyimpan macronya,coba gunakan xlsm (excel macro enabled) atau xlsb (excel binary) atau xls (excel 97 2003) .

    Saya mengerti maksudnya karna sy sendiri menggunakannya metode tsb untuk satu atau beberapa kepentingan. Jika menggunakan range , sebaiknya di merge ke dlm 1 range atau menggunakan loop & menggunakan separator sperti tanda ";" .

    Contoh Range

    Range A1 = Nama kolom

    A2: 123@gmail.com
    A3: 456@gmail.com
    A4:789@gmail.com

    maka di range A5 (misalnya) menjadi : 123@gmail.com ; 456@gmail.com ; 789@gmail.com
    penjelasan & sample file terlampir

    atau gunakan metode loop seperti ini

    Dim i
    For i = 1 To Application.WorksheetFunction.CountA(Range("A1:A3"))
    If i <> 1 Then
    txtto = txtto & ";" & Range("A1").Offset(i, 0).Value
    Else
    txtto = Range("A1").Offset(i, 0).Value
    End If
    Next i


    dimana TxtTo adalah alamat Email Tujuan

  3. Dear mas fujiansyah92,
    Mohon maaf saya kelupaan file saya lampirkan kembali.
    Memang betul mas..... konsepnya sama dengan yang dijelaskan diatas.
    saya masih belajar utak-atik lagi macro nya mas.

    terima kasih sebelumnya

  4. Coba ini ...

    saya juga menggunakan coding yg sblumnya saya kirim...dan dg fungsi rangetohtml

  5. Mantap.... makasih banyak mas Fujiansyah.... cocok dengan yang saya maksud.
    kalau mau di insert ke menu excel gimana yah mas.... biar bisa dipakai general...

    sekali lagi terima kasih

  6. maksudnya menu di menubar ? coba cek customui aja ... di forum ini juga banyak

    disini
    dan disini

  7. makasih atas infonya mas fujiansyah........
    met sukses selalu yah......

  8. Ass.... mas Fujiansyah/mas Caton
    Mohon dapat dibantu....... saya mau merubah Script terlampir dimana worksheet untuk alamat email dan content, didalam file excel terpisah dari sheet lampiran/sheet aktif yang akan jadi lampiran email.
    sehingga file excel untuk alamat email & contents tidak selalu harus open file dahulu.

    terima kasih sebelumnya.....

    '<<<setup Email address------------------------------------------------
    With Worksheets("ALAMAT-EMAIL")
    Dim i, AlamatEmail
    For i = 0 To Application.WorksheetFunction.CountA(.Range("A2:A4"))
    If i <> 0 Then
    AlamatEmail = AlamatEmail & ";" & .Range("A2").Offset(i, 0).Value
    Else
    AlamatEmail = .Range("A2").Offset(i, 0).Value
    End If
    Next i
    End With
    '----------------------------------------------------------------------end setup>>
    '<< set up Email Content------------
    Set rng = Worksheets("ALAMAT-EMAIL").Range("A20:I33") '.SpecialCells(xlCellTypeVisible)
    '----------------------------------->> end setup

  9. Di sunting 6 tahun lalu oleh Fujiansyah92

    @nafis2006 Ass.... mas Fujiansyah/mas Caton
    Mohon dapat dibantu....... saya mau merubah Script terlampir dimana worksheet untuk alamat email dan content, didalam file excel terpisah dari sheet lampiran/sheet aktif yang akan jadi lampiran email.
    sehingga file excel untuk alamat email & contents tidak selalu harus open file dahulu.

    terima kasih sebelumnya.....

    '<<<setup Email address------------------------------------------------
    With Worksheets("ALAMAT-EMAIL")
    Dim i, AlamatEmail
    For i = 0 To Application.WorksheetFunction.CountA(.Range("A2:A4"))
    If i <> 0 Then
    AlamatEmail = AlamatEmail & ";" & .Range("A2").Offset(i, 0).Value
    Else
    AlamatEmail = .Range("A2").Offset(i, 0).Value
    End If
    Next i
    End With
    '----------------------------------------------------------------------end setup>>
    '<< set up Email Content------------
    Set rng = Worksheets("ALAMAT-EMAIL").Range("A20:I33") '.SpecialCells(xlCellTypeVisible)
    '----------------------------------->> end setup

    @nafis2006
    ada 2 solusi

    1. [Karena tdk bisa menggunakan code diatas tanpa membuka file].sebaiknya buat/simpan di dlm userform yg mana bisa di setup setiap ingin email ( silahkan coba coba sendiri-file tdk terlampir)
    2.menggunakan kode & File yg sama, tetapi pisahkan data tsb ke file lain [fixed path & name] . lalu pada awal coding ,lakukan aktivasi workbooks('nama file').activate (file terlampir

  10. terima kasih banyak mas fujiansyah....
    sangat terbantukan....
    met sukses selalu

  11. mas master.....
    Mohon pencerahan master, sudah lama program ini running well
    tetapi tiba2 muncul error Set OutApp = CreateObject("Outlook.Application").......

    kira2 kenapa yah....

    terima kasih

  12. Caton

    27 Jul 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @nafis2006 ...

    ... tetapi tiba2 muncul error Set OutApp = CreateObject("Outlook.Application") ... kira2 kenapa yah ...

    Biasanya, masalah seperti ini terjadi karena objek yang hendak dibuat (CreateObject) sudah tidak terdaftar di dalam sistem (Windows). Hal ini bisa saja terjadi karena script digunakan pada sistem yang tidak memiliki objek Outlook tersebut (tidak terinstal), atau objek Outlook terhapus atau dihapus, atau telah diinstal ulang dengan versi berbeda (namun kecil kemungkinannya), atau terjadi perubahan versi operasi misal dari 32 bit ke 64 bit (namun ini juga kecil kemungkinannya).

    Intinya, CreateObject akan bermasalah jika objek yang hendak dibuat tidak terdaftar dalam sistem yang sedang digunakan. Demikian.

  13. baik mas @Caton ....

    Terima kasih atas penjelasannya mas.... mungkin ada masalah di outlook nya soalnya sebelumnya di outlooknya ada masalah koneksi kemudian org IT membetulkan, akan sya tanya ke mereka.

    saya pikir dari script macronya...

    sekali lagi terima kasih

 

atau Mendaftar untuk ikut berdiskusi!