*anyone? please help

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance


I wanted to send new newsgroup message to 30 students with a different
Newsgrop ID Name. from EXCEL to OUTLOOK EXPRESS.

The code below will post an email from Outlook to as many people as I want.
However, I want to post a message to a 30 different newsgroups instead of
emails.

I think ShellExecute 0& is the key see below. This code will open an
email page from Outlook Express to post an regular email, I want it to open
a newsgroup message page from Outlook express instead. Please see below

GOD BLESS YOU ALL.

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

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 Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double

For r = 2 To 2 'data in rows 2-4
' Get the email address
Email = Cells(r, 2)

' Message subject
Subj = Cells(r, 1)

' Compose the message
Msg = Cells(r, 3)

' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf,
"%0D%0A")

' Create the URL
URL = "mailto:"; & Email & "?subject=" & Subj & "&body=" & Msg

' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus

' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:01"))
' Application.SendKeys "%s"
Next r
End Sub






Sam Sebaihi
Faculty
Western International University
Associate Programs
samsebaihi1@xxxxxxxxxxxxxxx
sam_sebai@xxxxxxxxx (alternate email)
Phone #: (405)315-8223 Time zone: Pacific Time


.

Relevant Pages

  • Re: DocOutlook Landkarte Deutschland
    ... Informationen von Smarttools Outlook Weekly vom 11/19/25.02.2004 ... Karten und Routenplanung direkt aus Outlook aufrufen, ... ByVal Inspector As Inspector) Dim cb As CommandBar Dim mnu As ... ByVal lpOperation As String, _ ...
    (microsoft.public.de.outlook)
  • Send Email by outlook Express from MS Access
    ... On Error GoTo sai ... Dim pula, contato, msg As String ... Lista de los destinatarios CCO ... Send Email By outlook Express from MS Access ...
    (microsoft.public.access.modulesdaovba)
  • RE: Send Email by outlook Express from MS Access
    ... On Error GoTo sai ... Dim pula, contato, msg As String ... Lista de los destinatarios CCO ... Send Email By outlook Express from MS Access ...
    (microsoft.public.access.modulesdaovba)
  • Re: KONTAKTE - KARTE ZUR ADRESSE ANZEIGEN
    ... Karten und Routenplanung direkt aus Outlook aufrufen, ... Wenn Sie einen Kontakt in Outlook anlegen, geben Sie neben dem Namen, der ... ByVal Inspector As Inspector) Dim cb As CommandBar Dim mnu As ... ByVal lpOperation As String, _ ...
    (microsoft.public.de.outlook)
  • RE: How can I create a outlook appointment item from data in a e-m
    ... Dim strHTMLType 'As String ... Try Picture Attachments Wizard for Outlook: ...
    (microsoft.public.outlook.program_vba)