boleh bertanya : ShellExecute itu sepertinya punya VB6 ya ? apa bisa
dijalankan pada vba , kecuali sudah didaftakan sbg API Library di vba excel..
To: [email protected]
From: [email protected]
Date: Fri, 28 Oct 2011 16:52:38 +0700
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 inikalau 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
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,
