sayın murat dikme,

Sub SendMail

    Dim objEmail









    Const cdoSendUsingPort = 2

    Const cdoBasicAuth = 1

    Const cdoTimeout = 60









     mailServer = "smtp.istyonetim.com.tr"

     SMTPport = 465

     mailusername = "[email protected]"

     mailpassword = ""









     mailto = Me.Metin62 & " ; " & acilan10.Column(0) & " ; " & acilan11.Column(0) & " ; " & acilan12.Column(0) & " ; " & acilan13.Column(0) & " ; " & acilan14.Column(0) & " ; " & acilan15.Column(0) & " ; " & acilan16.Column(0) & " ; " & acilan17.Column(0)

     mailSubject = "Deneme Konu" 

     mailBody = "Deneme Metin" 









    Set objEmail = CreateObject("CDO.Message")

    Set objConf = objEmail.Configuration

    Set objFlds = objConf.Fields









    With objFlds

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword

        .Update

    End With









    objEmail.To = mailto

    objEmail.From = mailusername

    objEmail.Subject = mailSubject

    objEmail.TextBody = mailBody

    'objEmail.AddAttachment BelgeAdi

    objEmail.Send









    Set objFlds = Nothing

    Set objConf = Nothing

    Set objEmail = Nothing









    MsgBox ("mail gönderildi")

    Kill BelgeAdi

		

End Sub

bir de yukarıdaki kodları kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.