private sub command_click()
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Dim objCDOconfig, objCDOmessage As Object
Dim strSch As String
strSch = "http://schemas.microsoft.com/cdo/configuration/";
Set objCDOconfig = CreateObject("CDO.configuration")
With objCDOconfig.Fields
.Item(strSch & "smtpusessl") = True
.Item(strSch & "sendusing") = cdoSendUsingPort
.Item(strSch & "smtpserver") = "smtp.gmail.com"
.Item(strSch & "smtpauthenticate") = cdoBasic
.Item(strSch & "sendusername") = "[email protected]" <alamat email
pengirim>
.Item(strSch & "sendpassword") = "0987654321"
.Update
End With
Set objCDOmessage = CreateObject("cdo.message")
With objCDOmessage
Set .Configuration = objCDOconfig
.From = "HRD Sistem -No Reply-"
.Sender = "HRD Sistem -No Reply-"
.To = "[email protected]" <dikirim ke alamat email mana>
.Subject = "xxxxxxxxxxxxxxxxxxx"
.textBody = "xxxxxxxxxxxxxxxxxxxxxx"
.mdnrequested = True
.Send
End With
Set objCDOmessage = Nothing
Set objCDOconfig = Nothing
end sub
kalo ga salah situ deh...
thanks,
dwiwanto.
________________________________
From: Wandi <[email protected]>
To: VB Groups <[email protected]>
Sent: Monday, April 27, 2009 5:33:54 PM
Subject: [Programmer-VB] Send Mail
Dear Master Vb,
ada ga Coding send Mail via vb tanpa bantuan outlook,
biasanya gw bikin lewat bantuan Outlook, tpi itu merepotkan.
thank's
taze
