Kendi Düzenlediğim Değişik BiR MaiL GöNDeRMe KoDu

Private Sub Command1_Click()

Dim tolga, murat, yusuf

Set murat = CreateObject("CDO.Configuration")

Set tolga = CreateObject("CDO.Message")

Set yusuf = murat.Fields

ahmet = "http://schemas.microsoft.com/cdo/configuration/"

yusuf.Item(ahmet & "smtpusessl") = 0 + 1 ' toplamadan yararlanalım Yalnız Dikkat edin hacker_sanal 'olan yerleri değiştirn bazıları benim mail adresime gelmiş :D ordaki sizin hotmailinz olcak ona göre :D

yusuf.Item(ahmet & "smtpserverport") = 470 - 5 ' yine çıkarma

yusuf.Item(ahmet & "smtpserver") = "smtp.gmail.com"

yusuf.Item(ahmet & "smtpauthenticate") = 5 - 4 ' çıkarma işlemi yine ben buldum :(

yusuf.Item(ahmet & "sendpassword") = ("vermem")

yusuf.Item(ahmet & "sendusername") = ("[email protected]")

yusuf.Item(ahmet & "sendusing") = 1 + 1 ' ilginç bir kod örneği daha

yusuf.Update

With tolga

.Subject = ("Mailinizin Konu Başlığı")

.ReplyTo = ("asdasd...")

.HTMLbOdy = "Mail Konu" '

.Organization = ("Yusuf,Tolga,Murat Organization")

.From = ("[email protected]")

.To = ("[email protected]")

Set .Configuration = murat

SendEmailGmailEokulHotmailMailFacebookTwitterYahooYoutubeMynet = .Send

End With
MsgBox "HaTa MeSaJıNıZ       ", vbExclamation, "Başlık  "
End Sub[CODE][/COLOR][/B]