On Error GoTo Err_cmdemail_Click
Dim stDocName As String
Dim stFormat As String
Dim stFrom As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant
stFormat = "PDF Format(*.pdf)"
stDocName = "Rpr_Perdesiparisfisi"
DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"
If MsgBox("Sipari?iniz Haz?rland? Devam Etmek i?in Evet ?ptali ??in Hay?r? T?klay?n", vbYesNo, "Pars") = vbYes Then
stFormat = "PDF Format(*.pdf)" 'Formun g?nderilece?i format zengin metin snapshot,excel vs
stTo = Me.Mail1 'G?nderece?iniz e-mail adresi"
stCc = Me.sipak
stBcc = "ateslermefrusat@gmail.com"
stSubject = "" 'e-mail ba?l???"
stMesajText = "L?TFEN S?PAR??? ONAYLAYIN..."
EditMesage = -1
DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"
DoCmd.SendObject acReport, "Rpr_Perdesiparisfisi", stFormat, stTo, stBcc, stSubject, stCc, stMesajText, EditMesage, """"
DoCmd.Close acForm, "Frm_Perdesipariskarti"
DoCmd.Close acReport, "Rpr_Perdesiparisfisi"
Forms![Frm_Musterikarti]![sipliste].Requery
End If
Exit_cmdemail_Click:
Exit Sub
Err_cmdemail_Click:
MsgBox Err.Description
DoCmd.Close acReport, "Rpr_Perdesiparisfisi"
DoCmd.Close acForm, "Frm_Perdesipariskarti"
DoCmd.OpenForm "Frm_Siparismenu"
Resume Exit_cmdemail_Click
Forms![Frm_Musterikarti]![sipliste].Requery
Raporu Pdf Olarak Mail Atarken Bozuluyor
Bu Konudaki Yorumlar |
Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: U.ALTUN - 07/01/2020, 12:04
Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: accessman - 07/01/2020, 12:20
Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: U.ALTUN - 07/01/2020, 13:22
Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: ozanakkaya - 13/01/2020, 14:45
Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: U.ALTUN - 18/01/2020, 17:40
Cvp: Raporu Pdf Olarak Mail Atarken Bozuluyor - Yazar: ozanakkaya - 09/01/2020, 18:07
|
Konuyu Okuyanlar: 1 Ziyaretçi