DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim rs As New ADODB.Recordset
Dim str As String
Dim Y, Z As Integer
Dim K As Double
rs.Open "emails1", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Z = rs.RecordCount / 100 Mod 100
If rs.EOF = True Then
MsgBox "Herhangi bir e-mail adresi kayıtlı değil."
Else
rs.MoveFirst
K = 0
Q = 0
Do While Not rs.EOF
If IsNull(rs(0)) Then
rs.MoveNext
Else
str = str & rs(0) & ", "
rs.MoveNext
K = K + 1
If K Mod 100 = 0 And Q < Z Then
GoSub Mail
str = ""
Q = Q + 1
Else
If Q = Z And rs.EOF Then
GoSub Mail
End If
End If
End If
Loop
End If
rs.Close
Set rs = Nothing
Exit Sub
Mail:
stDocName = "Empty_Report"
DoCmd.SendObject acSendNoObject, stDocName, , str, , , "Test Email", , True
Return
Mail:
Dim stDocName As String
stDocName = "Empty_Report"
DoCmd.SendObject acSendNoObject, stDocName, , str, , , "Test Email", , True
Return
Me!Email.Enabled = Not (IsNull(Me!email))
SendObject