email bummer

[itsglitzy]

hi i have a lable which opens up outlook, how do i populate the subject and message area

Private Sub Label9_Click()
Dim Subj As String
Link = "mailto:seenan.marc@bsksyb.com"

On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub

this is what im using at the mo

 

[ColinEssex]

Do a search for Email SendObject - the topic of emails crops up regularly.

Col

 

[ghudson]

If you are using the Application.FollowHyperlink method with the Mailto: command then you can use this to auto fill the email address, subject and memo body...

Application.FollowHyperlink "[COLOR=Blue]mailto:[/COLOR]seenan.marc@bsksyb.com[COLOR=Blue]?subject=[/COLOR]Testing 123[COLOR=Blue]&body=[/COLOR]Hello!", , True

 

[itsglitzy]

you guys

sincerest thanks to all who posted and helped you have helped me escape the mgt b.s and hassle top guys....keep up the good work