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
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
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.
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar