Sub btnRichiedi_Click
Msgbox2("Msg", "Msg", "Title", Array ("Ok"))
Wait For Msg_Click (ButtonText As String)
If ButtonText = "Ok" Then
Dim email As String = "email@domain.com"
Dim subject As String = "Subject"
Dim body As String = ""
Dim su As StringUtils
Dim url As String = $"mailto:?to=${email}&subject=${su.EncodeUrl(subject, "utf8")}&body=${su.EncodeUrl(body, "utf8")}"$
If Main.App.CanOpenURL("mailto:") Then
Main.App.OpenURL(url)
Else
SendMail
End If
End If
End Sub
Private Sub SendMail
'always dim and initialize the MailComposer before you use it
Dim mailcomp As MailComposer
If mailcomp.IsInitialized Then
mailcomp.SetToRecipients(Array("email@domain.com"))
mailcomp.SetSubject("Subject")
mailcomp.SetBody("Body", True)
mailcomp.Show(LockPg)
Else
Msgbox("Probabilmente non hai installata l'app 'Mail' e non hai configuarato una casella di posta.", "Errore apertura eMail")
End If
End Sub