Sizlerin sayesinde (bazı örneklerden faydalanarak) Access üzerinden düğmeyi bastığında koşula göre e-mail atmayı başardım. Fakat her seferinde ekteki resimde görülen uyarıyı veriyor ve izin ver dediğimde gönderiyor.. İsteğim ise bu uyarıyı vermeden e-maili göndermesi.
Bu uyarıyı kaldırabilir miyiz? Bu Access ile alakalı mıdır? Değilse Outlook nasıl çözebilirim
Private Sub Komut172_Click()
If [Metin128] = "SERBEST DEĞİL" Then GoTo 1
GoTo 2
1
Dim M, E, F As String
E = "xxx@xxx.com;xxx@xxxx.com;xxx@xxx.com"
If E <> "No" Then
F = "xxx@xxx.com"
M = " Masa: " & [Masa] & " " & " " & [ŞarjNo] & " nolu seri şarjda tolerans dışı değer tespit edilmiştir. Protokol ve Ek ölçüm sonuçları daha sonra rapor olarak paylaşılacaktır."
'Mail zu schicken
DoCmd.SendObject acSendNoObject, , acFormatRTF, E, F, "", "xxx kaplama seri ölçümlerinde tolerans dışı değer tespit edilmiştir. Şarj No: " & [ŞarjNo] & " " & " (Program tarafından otomatik maildir.)", M, False
End If
2
DoCmd.Save
DoCmd.Close
End SubTeşekkürler...
