Sub CreateReporter
log("-- Create reporter")
reporter = reporter.Initialize("KSCrashInstallationEmail").RunMethod("sharedInstance", Null)
Dim recipients As List = Array("bugreport@checkwriterplus.com") '<------------------------------------------- change!!!!!!!!!!!!!
reporter.SetField("recipients", recipients)
reporter.SetField("reportStyle", 1) 'KSCrashEmailReportStyleApple
reporter.SetField("subject", "Crash Report")
reporter.SetField("message", "This Is a crash report")
reporter.SetField("filenameFmt", "crash-report-%d.txt.gz")
reporter.RunMethod("install", Null)
End Sub
#if OBJC
#import <KSCrash/KSCrashFramework.h>
- (void) sendReports:(KSCrashInstallation*)installation {
[installation sendAllReportsWithCompletion:^(NSArray* reports, BOOL completed, NSError* error)
{
if(completed)
{
NSlogg(@"Sent %d reports", (int)[reports count]);
}
else
{
NSlogg(@"Failed to send reports: %@", error);
}
}];
}
#End If