email from excel

[dhowser]

I would like to be able to send e-mails to different people in my company from a list that i have on excel. I have seen several codes on the internet that doesn't seem to work for me. I am running Xcel97 and outlook 98 on NT4.0. Any help will be appreciated. Thanks.

 

[Al Chara]

Do a search for email on this board. This question is well documented.

 

[Lewis]

Do you mean you want to e-mail the worksheet or are you only using the worksheet as a list of e-mail addresses?

 

[Al Chara]

Sounds like dhowser wants to use a list of email addresses in an excel sheet to form an email group.

Try the following code:

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 SendEmail()
Dim URL As String, Email As String
Email = Worksheets("Sheet1").Range("a1") & ";" & Worksheets("Sheet1").Range("a2")
URL = "mailto:" & Email & "?subject=" & "Insert Subject" & "&body=" & "Insert Message"
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s"
End Sub

Edit it to fit your needs.