TextBox Text an Email Senden

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von GermanElectronix.

    TextBox Text an Email Senden

    Hey Leute,
    Ich habe eine TextBox und wenn ich z.B. in der TextBox "lol" eingebe und ich mit einem Button auf Senden drücken möchte ich das der Text der dort drin steht an meine Email gesendet wird. Kann mir einer sagen wie es Funktioniert? Und bitte ohne das der Absender ein Passwort eingeben muss.. wäre sehr Dankbar dafür.

    LG
    Threadtitel angepasst

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FlashTek“ ()

    geht nicht da du dich über pop3 bei deinen Email-Server melden must (mit pw und username).
    ich würde dir auch raten es nicht über hardcodet PWs und Usernames zu machen da man innerhalb von 1 min alle pws hat die du drin geschrieben hast :)
    mach es am besten mit php und sende ein HTTP-Request an die PHP Datei und sie sendet dan eine Email an den Adressaten.
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Spielst du hier jetzt rechte Tasche linke Tasche? Ein Topic genügt dir ja wohl. Wenn du konkrete Probleme hast hilft dir auch jemand, aber wenn das jetzt wieder auf Codebettelei hinausläuft ist das echt arm.
    Im anderen Thread hat dir auch jemand ein Link für SMTP gepostet. Mach dir einfach ein Schrottkonto das bei passwort sowie name keine Relation zu dir hat. Oder aber die php Liebhaber haben ne Alternative parat....

    8-) faxe1008 8-)

    Dazu brauchst du einen Server. Ein kostenloser PHP-Server / Webspace reicht da.

    VB.NET-Quellcode

    1. with new threading.thread(sub()
    2. with new net.webclient()
    3. .downloadstring("http://deineadresse.de/mail.php?msg=" & msg.text)
    4. invoke(sub()
    5. messagebox.show("Mail sent")
    6. end sub)
    7. end with
    8. end sub)
    9. .start()
    10. end with

    PHP-Quellcode

    1. <?php
    2. mail("deine@mail.adresse", "Subject", $_GET["msg"], "");
    3. ?>


    (Weil ich gerade nichts besseres zu tun hatte. Nur aus Kopf geschrieben, kann Fehler enthalten. Kein C&P!).

    Gibt es da nicht noch eine Einfachere Lösung? :) @faxe1008 ?! Wie soll ich das den deiner meinung nach machen? Ich möchte ja das Andere Leute das Programm nützen können, und nicht nur ich!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „JustTesting“ ()

    @BjöNi
    Wieso einen Thread, wenn es eine Async-Funktion des Webclients gibt?

    VB.NET-Quellcode

    1. Dim wc As New Net.WebClient() With {.Proxy = Nothing}
    2. AddHandler wc.DownloadStringCompleted, Sub(s As Object, c As System.ComponentModel.AsyncCompletedEventArgs)
    3. MessageBox.Show("Mail gesendet")
    4. DirectCast(s, Net.WebClient).Dispose()
    5. End Sub
    6. wc.DownloadStringAsync("http://deineadresse.de/mail.php?msg=" & msg.text)


    JustTesting schrieb:

    Gibt es da nicht noch eine Einfachere Lösung?

    Nein, dies ist die beste und einfachste Lösung.
    Mfg
    Vincent

    VincentTB schrieb:

    Wieso einen Thread, wenn es eine Async-Funktion des Webclients gibt?
    Kann man machen, ist aber im Prinzip sowieso das gleiche:
    System.Net.WebClient: DownloadStringAsync

    VB.NET-Quellcode

    1. ' System.Net.WebClient
    2. ''' <summary>Lädt die angegebene Zeichenfolge in die angegebene Ressource herunter.Durch diese Methode wird der aufrufende Thread nicht blockiert.</summary>
    3. ''' <param name="address">Ein <see cref="T:System.Uri" /> mit dem herunterzuladenden URI.</param>
    4. ''' <param name="userToken">Ein benutzerdefiniertes Objekt, das bei Abschluss des asynchronen Vorgangs an die aufgerufene Methode übergeben wird.</param>
    5. ''' <exception cref="T:System.Net.WebException">Der durch Kombinieren von <see cref="P:System.Net.WebClient.BaseAddress" /> und <paramref name="address" /> gebildete URI ist ungültig.– oder – Fehler beim Herunterladen der Ressource. </exception>
    6. <HostProtection(SecurityAction.LinkDemand, ExternalThreading = True)>
    7. Public Sub DownloadStringAsync(address As Uri, userToken As Object)
    8. If Logging.[On] Then
    9. Logging.Enter(Logging.Web, Me, "DownloadStringAsync", address)
    10. End If
    11. If address Is Nothing Then
    12. Throw New ArgumentNullException("address")
    13. End If
    14. Me.InitWebClientAsync()
    15. Me.ClearWebClientState()
    16. Dim asyncOperation As AsyncOperation = AsyncOperationManager.CreateOperation(userToken)
    17. Me.m_AsyncOp = asyncOperation
    18. Try
    19. Dim request As WebRequest = Me.m_WebRequest = Me.GetWebRequest(Me.GetUri(address))
    20. Me.DownloadBits(request, Nothing, New CompletionDelegate(Me.DownloadStringAsyncCallback), asyncOperation)
    21. Catch ex As Exception
    22. If TypeOf ex Is ThreadAbortException OrElse TypeOf ex Is StackOverflowException OrElse TypeOf ex Is OutOfMemoryException Then
    23. Throw
    24. End If
    25. If Not(TypeOf ex Is WebException) AndAlso Not(TypeOf ex Is SecurityException) Then
    26. ex = New WebException(SR.GetString("net_webclient"), ex)
    27. End If
    28. Me.DownloadStringAsyncCallback(Nothing, ex, asyncOperation)
    29. End Try
    30. If Logging.[On] Then
    31. Logging.[Exit](Logging.Web, Me, "DownloadStringAsync", "")
    32. End If
    33. End Sub
    System.ComponentModel.AsyncOperationManager

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Security.Permissions
    3. Imports System.Threading
    5. Namespace System.ComponentModel
    6. <HostProtection(SecurityAction.LinkDemand, SharedState = True)>
    7. Public Module AsyncOperationManager
    8. <EditorBrowsable(EditorBrowsableState.Advanced)>
    9. Public Property SynchronizationContext() As SynchronizationContext
    10. Get
    11. If SynchronizationContext.Current Is Nothing Then
    12. SynchronizationContext.SetSynchronizationContext(New SynchronizationContext())
    13. End If
    14. Return SynchronizationContext.Current
    15. End Get
    16. <PermissionSet(SecurityAction.LinkDemand, Name = "FullTrust")>
    17. Set(value As SynchronizationContext)
    18. SynchronizationContext.SetSynchronizationContext(value)
    19. End Set
    20. End Property
    22. Public Function CreateOperation(userSuppliedState As Object) As AsyncOperation
    23. Return AsyncOperation.CreateOperation(userSuppliedState, AsyncOperationManager.SynchronizationContext)
    24. End Function
    25. End Module
    26. End Namespace
    System.ComponentModel.AsyncOperation

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Runtime
    3. Imports System.Security.Permissions
    4. Imports System.Threading
    6. Namespace System.ComponentModel
    7. <HostProtection(SecurityAction.LinkDemand, SharedState = True)>
    8. Public Class AsyncOperation
    9. Private syncContext As SynchronizationContext
    11. Private userSuppliedState As Object
    13. Private alreadyCompleted As Boolean
    15. Public ReadOnly Property UserSuppliedState() As Object
    16. <TargetedPatchingOptOut("Performance critical to inline this type of method across NGen image boundaries")>
    17. Get
    18. Return Me.userSuppliedState
    19. End Get
    20. End Property
    22. Public ReadOnly Property SynchronizationContext() As SynchronizationContext
    23. <TargetedPatchingOptOut("Performance critical to inline this type of method across NGen image boundaries")>
    24. Get
    25. Return Me.syncContext
    26. End Get
    27. End Property
    29. Sub Finalize()
    30. If Not Me.alreadyCompleted AndAlso Me.syncContext IsNot Nothing Then
    31. Me.syncContext.OperationCompleted()
    32. End If
    33. End Sub
    35. Public Sub Post(d As SendOrPostCallback, arg As Object)
    36. Me.VerifyNotCompleted()
    37. Me.VerifyDelegateNotNull(d)
    38. Me.syncContext.Post(d, arg)
    39. End Sub
    41. Public Sub PostOperationCompleted(d As SendOrPostCallback, arg As Object)
    42. Me.Post(d, arg)
    43. Me.OperationCompletedCore()
    44. End Sub
    46. Public Sub OperationCompleted()
    47. Me.VerifyNotCompleted()
    48. Me.OperationCompletedCore()
    49. End Sub
    51. Friend Shared Function CreateOperation(userSuppliedState As Object, syncContext As SynchronizationContext) As AsyncOperation
    52. Return New AsyncOperation(userSuppliedState, syncContext)
    53. End Function
    55. Private Sub New(userSuppliedState As Object, syncContext As SynchronizationContext)
    56. Me.userSuppliedState = userSuppliedState
    57. Me.syncContext = syncContext
    58. Me.alreadyCompleted = False
    59. Me.syncContext.OperationStarted()
    60. End Sub
    62. Private Sub OperationCompletedCore()
    63. Try
    64. Me.syncContext.OperationCompleted()
    65. Finally
    66. Me.alreadyCompleted = True
    67. GC.SuppressFinalize(Me)
    68. End Try
    69. End Sub
    71. Private Sub VerifyNotCompleted()
    72. If Me.alreadyCompleted Then
    73. Throw New InvalidOperationException(SR.GetString("Async_OperationAlreadyCompleted"))
    74. End If
    75. End Sub
    77. Private Sub VerifyDelegateNotNull(d As SendOrPostCallback)
    78. If d Is Nothing Then
    79. Throw New ArgumentNullException(SR.GetString("Async_NullDelegate"), "d")
    80. End If
    81. End Sub
    82. End Class
    83. End Namespace
    System.Threading.SynchronizationContext

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Runtime
    3. Imports System.Runtime.CompilerServices
    4. Imports System.Runtime.ConstrainedExecution
    5. Imports System.Runtime.InteropServices
    6. Imports System.Security
    7. Imports System.Security.Permissions
    9. Namespace System.Threading
    10. <__DynamicallyInvokable()>
    11. <SecurityPermission(SecurityAction.InheritanceDemand, Flags = (SecurityPermissionFlag.ControlEvidence Or SecurityPermissionFlag.ControlPolicy))>
    12. Public Class SynchronizationContext
    13. Private _props As SynchronizationContextProperties
    15. Private Shared s_cachedPreparedType1 As Type
    17. Private Shared s_cachedPreparedType2 As Type
    19. Private Shared s_cachedPreparedType3 As Type
    21. Private Shared s_cachedPreparedType4 As Type
    23. Private Shared s_cachedPreparedType5 As Type
    25. <SecurityCritical()>
    26. Private Shared s_winRTContextFactory As WinRTSynchronizationContextFactoryBase
    28. <__DynamicallyInvokable()>
    29. Public Shared ReadOnly Property Current() As SynchronizationContext
    30. <__DynamicallyInvokable(), TargetedPatchingOptOut("Performance critical to inline across NGen image boundaries")>
    31. Get
    32. Return If(Thread.CurrentThread.GetExecutionContextReader().SynchronizationContext, SynchronizationContext.GetThreadLocalContext())
    33. End Get
    34. End Property
    36. Friend Shared ReadOnly Property CurrentNoFlow() As SynchronizationContext
    37. <FriendAccessAllowed()>
    38. Get
    39. Return If(Thread.CurrentThread.GetExecutionContextReader().SynchronizationContextNoFlow, SynchronizationContext.GetThreadLocalContext())
    40. End Get
    41. End Property
    43. <__DynamicallyInvokable(), TargetedPatchingOptOut("Performance critical to inline this type of method across NGen image boundaries")>
    44. Public Sub New()
    45. End Sub
    47. <SecuritySafeCritical()>
    48. Protected Sub SetWaitNotificationRequired()
    49. Dim type As Type = MyBase.[GetType]()
    50. If SynchronizationContext.s_cachedPreparedType1 IsNot type AndAlso SynchronizationContext.s_cachedPreparedType2 IsNot type AndAlso SynchronizationContext.s_cachedPreparedType3 IsNot type AndAlso SynchronizationContext.s_cachedPreparedType4 IsNot type AndAlso SynchronizationContext.s_cachedPreparedType5 IsNot type Then
    51. RuntimeHelpers.PrepareDelegate(New WaitDelegate(Me.Wait))
    52. If SynchronizationContext.s_cachedPreparedType1 Is Nothing Then
    53. SynchronizationContext.s_cachedPreparedType1 = type
    54. Else
    55. If SynchronizationContext.s_cachedPreparedType2 Is Nothing Then
    56. SynchronizationContext.s_cachedPreparedType2 = type
    57. Else
    58. If SynchronizationContext.s_cachedPreparedType3 Is Nothing Then
    59. SynchronizationContext.s_cachedPreparedType3 = type
    60. Else
    61. If SynchronizationContext.s_cachedPreparedType4 Is Nothing Then
    62. SynchronizationContext.s_cachedPreparedType4 = type
    63. Else
    64. If SynchronizationContext.s_cachedPreparedType5 Is Nothing Then
    65. SynchronizationContext.s_cachedPreparedType5 = type
    66. End If
    67. End If
    68. End If
    69. End If
    70. End If
    71. End If
    72. Me._props = Me._props Or SynchronizationContextProperties.RequireWaitNotification
    73. End Sub
    75. Public Function IsWaitNotificationRequired() As Boolean
    76. Return(Me._props And SynchronizationContextProperties.RequireWaitNotification) <> SynchronizationContextProperties.None
    77. End Function
    79. <__DynamicallyInvokable()>
    80. Public Overridable Sub Send(d As SendOrPostCallback, state As Object)
    81. d(state)
    82. End Sub
    84. <__DynamicallyInvokable()>
    85. Public Overridable Sub Post(d As SendOrPostCallback, state As Object)
    86. ThreadPool.QueueUserWorkItem(New WaitCallback(d.Invoke), state)
    87. End Sub
    89. <__DynamicallyInvokable()>
    90. Public Overridable Sub OperationStarted()
    91. End Sub
    93. <__DynamicallyInvokable()>
    94. Public Overridable Sub OperationCompleted()
    95. End Sub
    97. <CLSCompliant(False), PrePrepareMethod(), SecurityCritical()>
    98. Public Overridable Function Wait(waitHandles As IntPtr(), waitAll As Boolean, millisecondsTimeout As Integer) As Integer
    99. If waitHandles Is Nothing Then
    100. Throw New ArgumentNullException("waitHandles")
    101. End If
    102. Return SynchronizationContext.WaitHelper(waitHandles, waitAll, millisecondsTimeout)
    103. End Function
    105. <CLSCompliant(False), PrePrepareMethod(), ReliabilityContract(Consistency.WillNotCorruptState, Cer.MayFail), SecurityCritical()>
    106. <MethodImpl(MethodImplOptions.InternalCall)>
    107. Protected Shared Function WaitHelper(waitHandles As IntPtr(), waitAll As Boolean, millisecondsTimeout As Integer) As Integer
    109. <__DynamicallyInvokable(), TargetedPatchingOptOut("Performance critical to inline across NGen image boundaries"), SecurityCritical()>
    110. Public Shared Sub SetSynchronizationContext(syncContext As SynchronizationContext)
    111. Dim mutableExecutionContext As ExecutionContext = Thread.CurrentThread.GetMutableExecutionContext()
    112. mutableExecutionContext.SynchronizationContext = syncContext
    113. mutableExecutionContext.SynchronizationContextNoFlow = syncContext
    114. End Sub
    116. <TargetedPatchingOptOut("Performance critical to inline across NGen image boundaries")>
    117. Private Shared Function GetThreadLocalContext() As SynchronizationContext
    118. Dim synchronizationContext As SynchronizationContext = Nothing
    119. If synchronizationContext Is Nothing AndAlso Environment.IsWinRTSupported Then
    120. synchronizationContext = SynchronizationContext.GetWinRTContext()
    121. End If
    122. Return synchronizationContext
    123. End Function
    125. <SecuritySafeCritical()>
    126. Private Shared Function GetWinRTContext() As SynchronizationContext
    127. If Not AppDomain.IsAppXModel() Then
    128. Return Nothing
    129. End If
    130. Dim winRTDispatcherForCurrentThread As Object = SynchronizationContext.GetWinRTDispatcherForCurrentThread()
    131. If winRTDispatcherForCurrentThread IsNot Nothing Then
    132. Return SynchronizationContext.GetWinRTSynchronizationContextFactory().Create(winRTDispatcherForCurrentThread)
    133. End If
    134. Return Nothing
    135. End Function
    137. <__DynamicallyInvokable()>
    138. Public Overridable Function CreateCopy() As SynchronizationContext
    139. Return New SynchronizationContext()
    140. End Function
    142. <SecurityCritical()>
    143. Private Shared Function GetWinRTSynchronizationContextFactory() As WinRTSynchronizationContextFactoryBase
    144. Dim winRTSynchronizationContextFactoryBase As WinRTSynchronizationContextFactoryBase = SynchronizationContext.s_winRTContextFactory
    145. If winRTSynchronizationContextFactoryBase Is Nothing Then
    146. Dim type As Type = Type.[GetType]("System.Threading.WinRTSynchronizationContextFactory, System.Runtime.WindowsRuntime, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089", True)
    147. winRTSynchronizationContextFactoryBase = (SynchronizationContext.s_winRTContextFactory = CType(Activator.CreateInstance(type, True), WinRTSynchronizationContextFactoryBase))
    148. End If
    149. Return winRTSynchronizationContextFactoryBase
    150. End Function
    152. <SecurityCritical(), SuppressUnmanagedCodeSecurity()>
    153. Private Shared Declare Unicode Function GetWinRTDispatcherForCurrentThread Lib "QCall" () As<MarshalAs(UnmanagedType.[Interface])>
    154. Object
    156. <SecurityCritical()>
    157. Private Shared Function InvokeWaitMethodHelper(syncContext As SynchronizationContext, waitHandles As IntPtr(), waitAll As Boolean, millisecondsTimeout As Integer) As Integer
    158. Return syncContext.Wait(waitHandles, waitAll, millisecondsTimeout)
    159. End Function
    160. End Class
    161. End Namespace
    Hier steht noch was zum SynchronizationContext.

    Mail versenden:
    Imports System.Net
    Imports System.Net.Mail
    Imports System.Net.Sockets

    Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
    Try
    Dim MailMessage as new MailMessage
    MailMessage.From = New MailAddress("MailAddress eintragen")
    MailMessage.Sender = New MailAddress("MailAddress eintragen")
    If rbP1.Checked = True Then
    MailMessage.Priority = MailPriority.Low
    ElseIf rbP2.Checked = True Then
    MailMessage.Priority = MailPriority.Normal
    ElseIf rbP3.Checked = True Then
    MailMessage.Priority = MailPriority.High
    End If
    MailMessage.To.Add("MailAddress eintragen")
    MailMessage.Subject = txtBeschreibung.Text
    MailMessage.Body = txtMail.Text

    'create SMTPClient
    SMTPClient.Credentials = New NetworkCredential("MailAddress", "Mein Mail Passwort")
    SMTPClient.Host = "Meine Mail SMTP"
    SMTPClient.Port = "Mein SMTP Port"
    SMTPClient.EnableSsl = True 'Mail SSL aktivieren

    'send Mail
    SMTPClient.Send(MailMessage)

    CreateObject("sapi.spvoice").speak("Die Mail wurde versendet.")
    Catch ex As Exception
    CreateObject("sapi.spvoice").speak("Die Mail konnte nicht versendet werden.")
    End Try
    End Sub

Facebook
Telefonspende