code_junkie

Inherited Public Properties not showing up in Intellisense

Nov 13th, 2011
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.23 KB | None | 0 0
  1. print("Public Class CompanyMailMessage
  2. Inherits MailMessage
  3.  
  4. Private AdobeDisclaimer As String = "You will need Adobe Acrobat to read this file. If it is not installed on your computer go to http://www.adobe.com/support/downloads/main.html to download. Thank You"
  5. Private _Body As String
  6. Private _IncludeAdobeDisclaimer As Boolean = False
  7.  
  8.  
  9. ''' <summary>
  10. ''' Gets or sets the body of the message
  11. ''' </summary>
  12. ''' <returns>A System.String that contains the body content.</returns>
  13. Public Property Body() As String
  14. Get
  15. If _IncludeAdobeDisclaimer Then
  16. _Body = _Body + AdobeDisclaimer
  17. End If
  18.  
  19. Return _Body
  20.  
  21. End Get
  22. Set(ByVal value As String)
  23. _Body = value
  24. End Set
  25. End Property
  26. ''' <summary>
  27. ''' Gets or sets a value that determines if a message that states that Adobe Acrobat must be used to open the attached files is included in the body of the message
  28. ''' </summary>
  29. ''' <value></value>
  30. ''' <returns>True if ;otherwise, false</returns>
  31. ''' <remarks></remarks>
  32. Public Property IncludeAdobeDisclaimer() As Boolean
  33. Get
  34. Return _IncludeAdobeDisclaimer
  35. End Get
  36. Set(ByVal value As Boolean)
  37. _IncludeAdobeDisclaimer = value
  38. End Set
  39. End Property
  40. ''' <summary>
  41. ''' Initializes an instance of the CompanyMailMessageclass
  42. ''' </summary>
  43. ''' <remarks></remarks>
  44. Public Sub New()
  45.  
  46. End Sub
  47. ''' <summary>
  48. ''' Initializes an instance of the CompanyMailMessageclass with plain text in the body
  49. ''' </summary>
  50. ''' <param name="from">The email address of the sender</param>
  51. ''' <param name="fromName">The name of the sender</param>
  52. ''' <param name="to"></param>
  53. ''' <param name="subject"></param>
  54. ''' <param name="body"></param>
  55. ''' <remarks></remarks>
  56. Public Sub New(from as String,fromName As String,[to] as String,subject As String,body As String)
  57.  
  58. MyBase.FromAddress = New EmailAddress(from,fromName)
  59. MyBase.ToAddresses.Add([to])
  60. MyBase.Subject = subject
  61. _Body = body
  62. MyBase.Items.Add(New MessageContent(MimeType.MessageRfc822,body))
  63.  
  64. End Sub");
Add Comment
Please, Sign In to add comment