how to send emails to outlook distribution list using vbscript

bulleye's Avatar
Newbie Member
Hi everyone,
i am new here and my first post. i'd like to send email from excel using vbcript. how i code it so that the email are sent to the distribution list in my outlook 2003 contacts. below is the codes for sending mail to indivual email addresses. Any help would be appriciated:
Sub Senmail()
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = ""
.Cc = ""
.Subject = "Hello World (one more time)..."
.Body = "This is the body of message"
.HTMLBody = "HTML version of message"
.Attachments.Add ("f:\Test.txt")
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

Last edited by shabbir; 13Oct2006 at 10:17.. Reason: Code formating.
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Duplicate of VB script to send email using outlook contact distribution list. Thread closed.