Selasa, 08 Mei 2012

[belajar-access] Send Mail di Win 7 + Windows Live Mail

 

Sekedar sharing, saya menggunakan send email dari Access menggunakan metode DoCmd.SendObject. Bila di WinXP, perintah ini bisa berjalan normal tanpa masalah, dimana email menggunakan Outlook Express dan Microsoft Outlook. Perintahnya adalah:
 
Private Sub Command138_Click()
    DoCmd.SendObject _
    , _
    , _
    , _
    nama1@fci.bks;nama2@fci.bks, _
    , _
    , _
    "Please Confirm" & "PI#: " & Me![No] & " by Cust: " & Me!CUS_BillName, _
    "Dear Mr.Nama1 & Mr.Nama2, PI with number : " & Me![No] & " have been confirmed, please check asap.", _
    False
    Me!TglSendEmail = Date
    MsgBox "Email send successfully."
End Sub
 
Namun di user yang menggunakan Win 7 dengan email menggunakan Windows Live Mail, perintah ini error, muncul pesan: "2046. The command or action 'SendObject' isn't available now.". Karena itu prosedure diatas saya disable, saya ganti ke metode Hyperlink, dimana perintahnya adalah:
 
Private Sub Command138_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo nol
    Command138.HyperlinkAddress = "mailto:" & "nama1@fci.bks;nama2@fci.bks" & "?subject=" & "PI: " & Me![No] & " dng Cust: " & Me!CUS_BillName & ", sudah dikonfirm, silahkan dicek."
nol:
End Sub
 
Maka dengan metode hyperlink ini, Access bisa send mail di Win 7 dengan email menggunakan Windows Live Mail. Semoga bermanfaat untuk rekan2 yg mengalami hal serupa.
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar