E-Posta Yazmaya yönlendir

sWaGg€r

27.06.2008 20:21:27

Dim NORMAL_GÖSTER

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

Sub EpostaHazırla(EPostaAdresi As String, Frm As Form)
Dim Uygula&
Uygula = ShellExecute(Frm.hwnd, vbNullString, EPostaAdresi, vbNullString, "C:\", NORMAL_GÖSTER)
End Sub

Private Sub Label3_Click()
EpostaHazırla "mailto:" & Label3.Caption, Me

End Sub