Sub PC_click
Try
Dim EMailAddrTo, Subject, Body As String
'EMailAddrTo = "[email protected]"
Subject = "PowerPoint Mouse PC server executable"
Body = "Please find attached the PC server executable file" & CRLF & "Save the file and launch it." & CRLF & CRLF & "Then launch the Android App to automatically connect."
Dim message As Email
message.To.Add(EMailAddrTo)
message.Subject = Subject
message.Body = Body
message.Attachments.Initialize
message.Attachments.Add(File.Combine(PowerPointMouseDir, "PowerPointMouse PCserver.exe"))
StartActivity(message.GetIntent)
Catch
ToastMessageShow("Unable to send mail...", False)
End Try
End Sub