Sub MailGonder(Alici,Konu,Mesaj)

Smtp="mail.sitem.com"
SiteMail="aaa@sitem.com"
SiteMailSifre="123456"

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = Smtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = SiteMail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = SiteMailSifre
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = False
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.BodyPart.CharSet="windows-1254"
.From = ""&Site_title&" <"&SiteMail&">"
.To = Alici
.Subject = Konu
.HTMLBody = Mesaj
.Send
End With
Set cdoMessage = Nothing : Set cdoConfig = Nothing

End Sub

Call MailGonder("alici_kisi@siteee.com","konu buraya","mail içeriği")