TextBox içine yazılan mail adresinin tıklanması

[girdap]

Merhaba,

TextBox içine yazıln mail adresinden Mail gönderimi açmak mğümkünmüdür?

Saygılarımla

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Private Sub CommandButton9_Click()
    Dim sEmailAddy As String
    sEmailAddy = TextBox1.Text' aaa@aaa.com şeklinde girin.
     
    ShellExecute 0&, "open", "mailto:" & sEmailAddy, _
    vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

 

[ECYavuz]

Sayın Hamitcan;

Aşağıdaki şekilde dener misiniz ?

Private Sub CommandButton9_Click()
    Dim sEmailAddy As String
    sEmailAddy = TextBox1.Text' aaa@aaa.com şeklinde girin.
     
    ShellExecute 0&, "open", "mailto:" & sEmailAddy, _
    vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

ShellExecute --> "Sub or Function not defined" hatası veriyor...

 

[Haluk]

İlgili API' nin ve SW_SHOWNORMAL sabit değerinin deklare edilmesi gerekiyor.

Kodların olduğu modülün en tepesine aşağıdakini yapıştırın ...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

 

[ECYavuz]

Teşekkürler Sn. Haluk