Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private MessageComposer As MessageComposer
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
MessageComposer.Initialize("MessageComposer")
If MessageComposer.CanSendText Then
MessageComposer.Body = "test"
Log(AddAttachment(MessageComposer, "abc".GetBytes("utf8"), "plain.text", "1.txt"))
MessageComposer.Show(Page1)
End If
End Sub
Private Sub AddAttachment (mc As MessageComposer, data() As Byte, UTI As String, FileName As String) As Boolean
Dim ControllerClass As NativeObject
ControllerClass.Initialize("MFMessageComposeViewController")
If ControllerClass.RunMethod("canSendAttachments", Null).AsBoolean Then
If ControllerClass.RunMethod("isSupportedAttachmentUTI:", Array(UTI)).AsBoolean Then
Dim no As NativeObject = mc
Return no.RunMethod("addAttachmentData:typeIdentifier:filename:", _
Array(no.ArrayToNSData(data), UTI, FileName)).AsBoolean
Else
Log("UTI not supported")
Return False
End If
Else
Log("Cannot send attachments.")
Return False
End If
End Sub