Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

How do i create an email link?

Hello.

I need to know how to create a button, that when pressed fires up the user's email prog and sends them mail.


Comments

  • : Hello.

    : I need to know how to create a button, that when pressed fires up the user's email prog and sends them mail.


    Sub Form_Load ()

    Form1.Caption = "Let's Get the Mail"

    Command1.Caption = "Launch Outlook Express"

    Show

    End Sub


    Sub Form_Unload (Cancel As Integer)

    Set Form1 = Nothing

    End

    End Sub


    Sub Command1_Click ()

    On Error GoTo ErrMsg

    Dim Mke_Email As String

    Dim Secure_Path As String

    Dim e As String

    Dim zz As Integer

    Rem Launch Outlook Express

    Mke_Email = "msimn.exe"

    Secure_Path = App.Path

    e = Secure_Path & "" & Mke_Email

    zz = Shell(e, 1)

    Unload Form1

    Exit Sub


    ErrMsg:

    Select Case Err

    Case 53: Msg = "ERROR 53: Outlook Express not found."

    Case 68: Msg = "ERROR 68: Drive " & Drive & ": not available."

    Case 76: Msg = "ERROR 76: Path doesn't exist."

    Case Else: Msg = "ERROR " & Err & " occurred."

    End Select


    End Sub


  • Thanks for the help, but what i don't have outlook express :(





    : : Hello.

    : : I need to know how to create a button, that when pressed fires up the user's email prog and sends them mail.


    : Sub Form_Load ()

    : Form1.Caption = "Let's Get the Mail"

    : Command1.Caption = "Launch Outlook Express"

    : Show

    : End Sub


    : Sub Form_Unload (Cancel As Integer)

    : Set Form1 = Nothing

    : End

    : End Sub


    : Sub Command1_Click ()

    : On Error GoTo ErrMsg

    : Dim Mke_Email As String

    : Dim Secure_Path As String

    : Dim e As String

    : Dim zz As Integer

    : Rem Launch Outlook Express

    : Mke_Email = "msimn.exe"

    : Secure_Path = App.Path

    : e = Secure_Path & "" & Mke_Email

    : zz = Shell(e, 1)

    : Unload Form1

    : Exit Sub


    : ErrMsg:

    : Select Case Err

    : Case 53: Msg = "ERROR 53: Outlook Express not found."

    : Case 68: Msg = "ERROR 68: Drive " & Drive & ": not available."

    : Case 76: Msg = "ERROR 76: Path doesn't exist."

    : Case Else: Msg = "ERROR " & Err & " occurred."

    : End Select


    : End Sub







  • : Thanks for the help, but what i don't have outlook express :(

    Well, the idea is that you substitute what you do have.


    :

    : : : Hello.

    : : : I need to know how to create a button, that when pressed fires up the user's email prog and sends them mail.


    : : Sub Form_Load ()

    : : Form1.Caption = "Let's Get the Mail"

    : : Command1.Caption = "Launch Outlook Express"

    : : Show

    : : End Sub


    : : Sub Form_Unload (Cancel As Integer)

    : : Set Form1 = Nothing

    : : End

    : : End Sub


    : : Sub Command1_Click ()

    : : On Error GoTo ErrMsg

    : : Dim Mke_Email As String

    : : Dim Secure_Path As String

    : : Dim e As String

    : : Dim zz As Integer

    : : Rem Launch Outlook Express

    : : Mke_Email = "msimn.exe"

    : : Secure_Path = App.Path

    : : e = Secure_Path & "" & Mke_Email

    : : zz = Shell(e, 1)

    : : Unload Form1

    : : Exit Sub


    : : ErrMsg:

    : : Select Case Err

    : : Case 53: Msg = "ERROR 53: Outlook Express not found."

    : : Case 68: Msg = "ERROR 68: Drive " & Drive & ": not available."

    : : Case 76: Msg = "ERROR 76: Path doesn't exist."

    : : Case Else: Msg = "ERROR " & Err & " occurred."

    : : End Select


    : : End Sub







  • Shawn CarterShawn Carter Member Posts: 0

    ___ < http://forcoder.org /> free ebooks and video tutorials about \ Java, Swift, Objective-C, Assembly, MATLAB, Ruby, C, R, Go, Perl, C++, Delphi, PHP, Visual Basic .NET, PL/SQL, Python, C#, Scratch, Visual Basic, JavaScript Clojure, Scala, Bash, Ada, D, F#, FoxPro, Rust, Transact-SQL, Logo, Kotlin, Lua, Awk, Fortran, Scheme, Lisp, ABAP, Julia, COBOL, ML, Dart, Erlang, SAS, Alice, Apex, Crystal, Hack, LabVIEW, Prolog, VBScript \ ____________

Sign In or Register to comment.