eMails senden

    • VB6

      eMails senden

      Neue Email im Standard-Mail-Programm öffnen:

      Visual Basic-Quellcode

      1. ' Hier die benötigten API-Deklarationen
      2. Declare Function ShellExecute Lib "shell32.dll" _
      3. Alias "ShellExecuteA" (ByVal hWnd As Long, _
      4. ByVal lpOperation As String, _
      5. ByVal lpFile As String, _
      6. ByVal lpParameters As String, _
      7. ByVal lpDirectory As String, _
      8. ByVal nShowCmd As Long) As Long ' Die nachfolgende Prozedur startet das Standard-EMail
      9. ' Programm, öffnet das Fenster für "Neue Nachrichten"
      10. ' und trägt ggf. die Empfängeradresse, den Betreff und
      11. ' den Nachrichtentext ein.
      12. '
      13. ' Anm.: Weitere Mailparameter wie zum Beispiel cc oder bcc sind denkbar,
      14. ' sind hier jedoch nicht implementiert.
      15. ' (Näheres siehe Dokument "SelfHTML 8.0", mailto: - Parameter)
      16. Public Sub StartEMail(ByVal hWnd As Long, _
      17. Optional ByVal Empfänger As String = "", _
      18. Optional ByVal Betreff As String = "", _
      19. Optional ByVal Text As String)
      20. ' hWnd: Fenster-Handle eines Formulars
      21. ' Ihrer Anwendung
      22. ' Empfänger: EMail-Adresse des Empfängers (opt.)
      23. ' Betreff: EMail-Betreff (optional)
      24. ' Text: EMail-Text (Optional)
      25. ' Hier werden die Mail-Parameter gespeichert Mailparameter = ""
      26. ' Wurde ein Betreff angegeben?
      27. If Betreff <> "" Then
      28. AddMailParam Mailparameter, "subject = " & Betreff
      29. End If ' Wurde ein Text angegeben?
      30. If Text <> "" Then
      31. AddMailParam Mailparameter, "body = " & Text
      32. End If
      33. Screen.MousePointer = 11
      34. Call ShellExecute(hWnd, "Open", "mailto:" & _
      35. Empfänger & Mailparameter, "", "", 1)
      36. Screen.MousePointer = 0
      37. End Sub
      38. Private Sub AddMailParam(ByRef r_AllParams As String, _
      39. ByVal p_Param As String)
      40. If r_AllParams = "" Then
      41. r_AllParams = "?" & p_Param
      42. Else
      43. r_AllParams = r_AllParams & "&" & p_Param
      44. End If
      45. End Sub

      Beispiel-Aufruf:

      Visual Basic-Quellcode

      1. StartEMail Me.hWnd, "tipps@vbarchiv.de", _
      2. "Neue Tipps", "Hier ein Tipp für das vb"
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Facebook
    Telefonspende