Dear all, Terimakasih atas masukannya, tadi saya sempet mencoba untuk coding yang di berikan, tapi gagal, besok hari senin saya coba lagi, karena outlook hanya ada di kantor :D,
Terimakasih. Asror, Safety is my responsibility Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! -----Original Message----- From: "STDEV(i)" <[email protected]> Sender: [email protected] Date: Fri, 28 Oct 2011 16:52:38 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Mengirim Email Melalui Userform koreksi dikitts.. maaf variable r dan x seharusnya tidak ada Private Sub CommandButton1_Click() ' * hapsari & ~siti ' milis BeExcal # 13754 / Oct 28, 2011 '------------------------------------- Dim Email As String, Subj As String Dim Msg As String, URL As String Email = "[email protected]" Subj = TextBox1.Text Msg = TextBox2.Text With Application.WorksheetFunction Subj = .Substitute(Subj, " ", "%20") Msg = .Substitute(Msg, " ", "%20") Msg = .Substitute(Msg, vbCrLf, "%0D%0A") End With URL = "mailto:"; & Email & "?subject=" & Subj & "&body=" & Msg ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus Application.Wait (Now + TimeValue("0:00:02")) Application.SendKeys "%s" End Sub 2011/10/28 STDEV(i) <[email protected]> > anda bermain-main email selama ini dengan 'client-email' apa ?? > kalau jawabannya gak tahu atau pakai yahoo mail / gmail, dsb, > jangan teruskan baca jawaban ini > kalau anda pakai MS Outlook, boleh meneruskan baca > > Prosedur ini ditulis di Module Userform > > Private Sub CommandButton1_Click() > ' milis BeExcal # 13754 / Oct 28, 2011 > '------------------------------------- > Dim Email As String, Subj As String > Dim Msg As String, URL As String > Dim r As Integer, x As Double > Email = "[email protected]" > Subj = TextBox1.Text > Msg = TextBox2.Text > With Application.WorksheetFunction > Subj = .Substitute(Subj, " ", "%20") > Msg = .Substitute(Msg, " ", "%20") > Msg = .Substitute(Msg, vbCrLf, "%0D%0A") > End With > URL = "mailto:"; & Email & "?subject=" & Subj & "&body=" & Msg > ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, > vbNormalFocus > Application.Wait (Now + TimeValue("0:00:02")) > Application.SendKeys "%s" > End Sub > > ~bests regards, > > > '------- > bisakah Excel menjumlah angka 16 - 28 digit dgn hasil tetap presisi?? > http://www.box.net/shared/0rn8cxmue3kt9ig05534<http://www.box.net/shared/h0k1ds7gg3frypr67t1h> > > > > 2011/10/28 Asror Al-Aliif's <[email protected]> > >> ** >> >> Selamat pagi, >> Dear rekan2 milis, saya membuat form, kalau di blog namanya email me, >> seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke >> alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi >> email, >> Terimakasih. >> Asror, >> >> >
