Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #Region Project Attributes
- #ApplicationLabel: Merchant Services
- #VersionCode: 1
- #VersionName:
- 'SupportedOrientations possible values: unspecified, landscape or portrait.
- #SupportedOrientations: unspecified
- #CanInstallToExternalStorage: False
- #End Region
- #Region Activity Attributes
- #FullScreen: False
- #IncludeTitle: false
- #End Region
- Sub Process_Globals
- 'These global variables will be declared once when the application starts.
- 'These variables can be accessed from all modules.
- Dim SMTP1 As SMTP
- Dim server As String : server= "smtp.gmail.com"
- Dim port As Int : port= 465
- Dim emailname As String : emailname="mylogin@gmail.com"
- Dim password As String : password="mypassword"
- Dim protocol As String : protocol="SMTPClient"
- End Sub
- Sub Globals
- 'These global variables will be redeclared each time the activity is created.
- 'These variables can only be accessed from this module.
- Private cmdRequestPaper As Button
- End Sub
- Sub Activity_Create(FirstTime As Boolean)
- Activity.LoadLayout("Home")
- If FirstTime Then
- SMTP1.Initialize(server, port, "themail@gmail.com", password,protocol)
- SMTP1.UseSSL = True
- End If
- End Sub
- Sub Activity_Resume
- End Sub
- Sub Activity_Pause (UserClosed As Boolean)
- End Sub
- Sub cmdRequestPaper_Click
- SMTP1.To.Add (emailname)
- SMTP1.Subject = "Merchant X Requests Paper"
- SMTP1.Body = "Merchant information goes here"
- SMTP1.Send
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement