Re: ]] XL-mania [[ Workbook yg Rajin mencatat Nama Excel-User yg membukanya.

mungkin ini "serupa" yang diminta

prosesnya kurang satu, yaitu macro untuk merekap data di outlook jadi notepad. karena ini bukan outlook-mania jadi.... hummmmmm...

di workbook tulis:

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
Sub spammingmania()
Dim Email As String, Subjek As String
Dim Msg As String, URL As String
On Error Resume Next
Shell ("outlook.exe")
Email = "aaaa@bbbbb.co.id" 'e-mail anda
Subjek = Application.WorksheetFunction.Substitute("Excel attachment e-mail", " ", "%20")
Msg = Application.WorksheetFunction.Substitute("Excel attachment e-mail Anda sudah saya buka", " ", "%20")
Msg = Application.WorksheetFunction.Substitute("Excel attachment e-mail Anda sudah saya buka", vbCrLf, "%0D%0A")
URL = "mailto:" & Email & "?subject=" & Subjek & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Sub

masih sering gagal kalau komputernya lemot, maklum bukan ahli macro :D sebenarnya bisa pakai metode lain, smtp.

thank you and regards,

- abimono -

2009/9/28 p02cc <p02cc@bussan.co.id>

Untuk kasus dibawah ini, bisa tidak bila kita kirim melalui e-mail dan yang menerima e-mail tersebut membuka File yang kita kirim dan langsung tercatat di file notepad yang ada di computer kita

 

 

 

 

 

Zaldi Ardiyansyah ( P02CC )

Member of Core System