Makasih ya pa dwiwanto
dwi saputro wrote:
>
>
>
>
> 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/
> <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
>
>
>
