Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Eylül 2003 Pazartesi

URL eMail




'UserForm1

'Add Tools on UserForm1: Label1
Option Explicit
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
Dim MyEmail, MySubject, MyBody, URL As Variant

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] URL eMail..."
Label1.Caption = 01ulusarac@superonline.com
End Sub
Private Sub Label1_Click()
On Error Resume Next
MyEmail = Label1.Caption
MySubject = "Merhaba...."
MyBody = "Bu bir deneme amaçlı elektronik postadır."
URL = "&Mailto:" & MyEmail & "&Subject=" & MySubject & "&Body=" & MyBody
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
Label1.Font.Underline = True
Label1.ForeColor = vbRed
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
Label1.Font.Underline = False
Label1.ForeColor = vbBlue
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul