Herkese selam,
Aşağıda belirttiğim kod ile istediğim raporu e-mail ile gönderebiliyorum.
Ancak birden fazla raporu gönderemiyorum. E-mail ile en az 3-4 rapor sayfasını SnapShot ile göndermek istiyorum. Bunun için aşağıdaki koda ne eklemem gerektiğini bir türlü beceremedim. Veya istediğime yakın bir örnek var ve paylaşabilirseniz sevinirim. Forumlarda aradım ama benim işimi görecek bir örnek bulamadı. teşekkürler.
Şuan Kullandığım kod aşağıdaki gibidir;
Private Sub Label43_Click()
On Error GoTo Err_Command9_Click
Dim stDocName As String
stDocName = "sms"
stFormat = acFormatSNP
strTo = Me.To 'Göndereceğiniz e-mail adresi
'stBc = Me.txtBc
strSubject = Me.Subject 'e-mail başlığı
strMesajText = "Please see the attached file for Information Messages." 'e-mailin mesaj kısmına yazacaklarınız
EditMesage = -1
DoCmd.SendObject acReport, stDocName, stFormat, strTo, , , strSubject, strMesajText
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox "SMS Sending Request is Failed... Please Try again..."
Resume Exit_Command9_Click
End Sub
Aşağıda belirttiğim kod ile istediğim raporu e-mail ile gönderebiliyorum.
Ancak birden fazla raporu gönderemiyorum. E-mail ile en az 3-4 rapor sayfasını SnapShot ile göndermek istiyorum. Bunun için aşağıdaki koda ne eklemem gerektiğini bir türlü beceremedim. Veya istediğime yakın bir örnek var ve paylaşabilirseniz sevinirim. Forumlarda aradım ama benim işimi görecek bir örnek bulamadı. teşekkürler.
Şuan Kullandığım kod aşağıdaki gibidir;
Private Sub Label43_Click()
On Error GoTo Err_Command9_Click
Dim stDocName As String
stDocName = "sms"
stFormat = acFormatSNP
strTo = Me.To 'Göndereceğiniz e-mail adresi
'stBc = Me.txtBc
strSubject = Me.Subject 'e-mail başlığı
strMesajText = "Please see the attached file for Information Messages." 'e-mailin mesaj kısmına yazacaklarınız
EditMesage = -1
DoCmd.SendObject acReport, stDocName, stFormat, strTo, , , strSubject, strMesajText
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox "SMS Sending Request is Failed... Please Try again..."
Resume Exit_Command9_Click
End Sub