home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / w / wa0729.zip / COMPOSE.FRM (.txt) next >
Visual Basic Form  |  1992-11-11  |  9KB  |  177 lines
  1. Compose
  2. Compose Message
  3. wwwwwwwwwwwww
  4. Form1%
  5. Cancel_BTN
  6. Cancel
  7. Details_BTN
  8. &Details
  9. Attach_BTN
  10. Attac&h
  11. Address_BTN
  12. &Address
  13. Send_BTN
  14. &Send
  15. Message_EDIT
  16. Subject_EDIT
  17. bcc_EDIT
  18. cc_EDIT
  19. To_EDIT
  20. Subject_LBL
  21.     Sub&ject:
  22. bcc_LBL
  23. &bcc:
  24. cc_LBL
  25. To_LBL
  26. Command1_Click
  27. MAPIMessage2
  28.     MapiRecip
  29. MapiFileH
  30. RecipClass
  31. MAPI_TO
  32. MAPI_CC
  33. RecipCountI
  34. Reserved
  35. Subject
  36. Main 
  37. NoteTextT
  38. Body    
  39. MessageType
  40. DateReceivedG
  41. FlagsA
  42. FileName
  43. PathNamey
  44. Position
  45.     FileCount=
  46. MAPISendMail
  47. MapiSession
  48. hWndw
  49. ignoreY
  50. DisplayStatus
  51. To_EDIT
  52. cc_EDIT
  53. Message_EDIT"
  54. Subject_EDIT
  55. Command2_Click
  56. Quit_BTN_Click
  57. Compose
  58. Send_BTN_Click
  59. Save_BTN_Click
  60. Attach_BTN_Clickn
  61. FileOpen_DLGe
  62. Action
  63. FilterJ
  64. AttachFilename
  65. Cancel_BTN_Click
  66. AttachPosition
  67. AttachmentN
  68.     iPosition
  69. Attach
  70. AttachCount
  71. Address_BTN_Click
  72. nRecips
  73. Address
  74. MAPIAddress
  75. StringToken
  76. delim
  77. iPos1
  78. iPos2
  79. WordLen
  80. AsString
  81. bccR*
  82. bcc_EDITx
  83.     ClassType
  84. Class
  85. AttachF
  86. Form_Click
  87. FlagZ
  88. FileType
  89. @    Form_Load
  90. SUCCESS_SUCCESS
  91.     OldCursor
  92. MousePointer
  93. Details_BTN_Click
  94. Rcpnt
  95. MapiResolveName
  96. Recip
  97. MapiDetails
  98. MAPI_BCC
  99.  These global vars are used to store
  100.  file attachment information between
  101.  when the user selects the attachmentt
  102.  info, until the message is sent..
  103.  NOTE: only 10 attachment filess
  104.  may be specified
  105. Address_BTN_Click
  106.  Copy users To, CC and BCC text linesl
  107.  into recipient descriptor array
  108. ReDim R(0 To 1) As MapiRecip
  109. R(0).Name = "Administrator"p
  110. R(0).RecipClass = MAPI_TOr
  111. R(0).Address = "" 
  112. R(1).Name = "v-petep"I
  113. R(1).RecipClass = MAPI_TOr
  114. R(1).Address = "" 
  115. nRecips = 1s
  116.  Call MAPIAddress to display the address UIs
  117.  NOTE: We select only the MAPI_TO class addressd
  118.  data.
  119. Get Address
  120.  For each recipient structure, append thed
  121.  name into the To_EDIT field in the composem
  122.  window.  
  123. Attach_BTN_Click
  124.  Don't let the user attach more than
  125.  10 files, since we only dimensioned
  126.  enough room for that.
  127. No more file attachments allowed in this demo
  128.  Display a FileOpen dialog to get thet
  129.  name of the file to attacht
  130.  NOTE: This has been left out intentionallyn
  131. FileOpen_DLG.FileName = "*.*"*
  132. FileOpen_DLG.Filter = "*.*"*
  133. FileOpen_DLG.Action = 1*
  134.  Copy the filename retruned from the FileOpene
  135.  dialog into the global Attachment arrays fors
  136.  storage until we send the message the user is
  137.  composing.s
  138. AttachPosition(AttachCount) = -1
  139. AttachFilename(AttachCount) = FileOpen_DLG.FileName
  140. AttachCount = AttachCount + 1 
  141. Message_EDIT.text = Message_EDIT.text + "#"F
  142. Cancel_BTN_Click
  143.  Hide the Compose window
  144. Details_BTN_Click
  145. Resolve
  146. Form_Load
  147.  Initialize the attachcount global var
  148.  when the compose window is loaded
  149. Send_BTN_Click
  150.  Check that user entered at least aa
  151.  subject field
  152. No subject
  153.  Display the hourglass cursor until*
  154.  the ReadMail call completes
  155.  Pull out the "to:" field and build up
  156.  recipient structuresi
  157.  Pull out the "cc:" field and build up
  158.  recipient structuresi
  159.  Pull out the "bcc:" field and build up
  160.  recipient structuresi
  161.  Make sure the user entered a recipient name
  162. You must enter a recipient to send mail!
  163.  Allocate enough recipient structurest
  164.  Set up the "TO:" recipient structures
  165.  Set up the "TO:" recipient structures
  166.  Set up the "BCC:" recipient structures*
  167.  Build up the file descriptors
  168.  Set the mail message fields
  169.  Send the mail, then destroy the compose windowi
  170.  if the send was successfuls
  171. Send Mail
  172.  Restore the original mouse cursor
  173. StringToken
  174.    Returns a string from string position "iPos" upto
  175.    a delimeter character
  176. Find next delimetere
  177.