mohon izin menambahkan koding : 'tambahkan deklarasi WinAPI yg akan digunakan
oleh aplikasi excel Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, _
ByVal nShowCmd As Long) As Long ' yang ini tetapPrivate 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
untuk lebih detail ttg WinAPI , biasanya programer VB banyak menggunakan
WinAPI ( sekarang sudah dialihkan ke .NET FrameWork karena lebih sederhana dan
mudah perawatanya - menurut Microsoft ,sih ) jadi cari di forum VB. catatan :
pop dan smtp ( service UNTUK server mail ) harus diseting agar outlook bisa
kirim email melalui outlook'=========
untuk Bu Siti terima kasih atas kodingnya ...... To:
[email protected]
From: [email protected]
Date: Fri, 28 Oct 2011 10:32:54 +0000
Subject: Re: [belajar-excel] Mengirim Email Melalui Userform
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...!From: "STDEV(i)" <[email protected]>
Sender: [email protected]
Date: Fri, 28 Oct 2011 16:52:38 +0700To:
<[email protected]>ReplyTo: [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 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,
