(16/03/2015, 17:20)kadirdursun yazdı: Sayın atoz112
Dediklerinizi yaptım. Uyarı artık gelmiyor. Fakat eksiz olarak yine mail göndermiyor.
atoz112'nin eklediği koddaki
.Send
kodunu End If
kodunun altına taşıyınız.With msg
.To = strEMailRecipient
.Subject = strSubject
.Body = strBody
If Me.mtn_ekdizini = "" Or IsNull(Me.mtn_ekdizini) Then
Else
.Attachments.Add (Me.mtn_ekdizini)
End If
.Send
End With