Send email through Google gmail
This code uses CDO to send an e-mail using your Google gmail account
AI
Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kod źródłowy
Public Function SendMail(msgBody As String) Dim lobj_cdomsg As CDO.Message Set lobj_cdomsg = New CDO.Message lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = 465 lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1 lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "[email protected]" lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password" lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30 lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2 lobj_cdomsg.Configuration.Fields.Update lobj_cdomsg.To = "[email protected]" lobj_cdomsg.From = "[email protected]" lobj_cdomsg.Subject = "subject" lobj_cdomsg.TextBody = "body" 'lobj_cdomsg.AddAttachment ("filepath") lobj_cdomsg.Send Set lobj_cdomsg = Nothing End Function
Oryginalne komentarze (3)
Odzyskane z Wayback Machine