Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: email from excel

  1. #1
    New Member dhowser's Avatar
    Join Date
    Mar 2002
    Posts
    30
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.

  2. #2
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Do a search for email on this board. This question is well documented.
    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

  3. #3
    Board Regular
    Join Date
    Feb 2002
    Posts
    50
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  4. #4
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.
    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •