by Ian Ippolito (vWorker) (14 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(16 Votes)
If you have Outlook 98 you can send email using VB! Use this code for the basis of creating mailing programs!
Inputs
vcolEmailAddress--collection of string email address
vstrSubject--email subject
vstrBody--email body (use vbCrLf to create lf)
Assumes
Requires outlook 98 installed on your machine. Also, make sure you set a reference in your VB project to the Outlook 98 Type Library or this won't compile.
API Declarations
VBcodersSub mSendEmail(ByVal vcolEmailAddress As Collection, _
ByVal vstrSubject As String, _
ByVal vstrBody As String)
Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
'Return a reference to the MAPI layer
Dim newMail As Outlook.MailItem
'Create a new mail message item
Set ns = ol.GetNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
'set properties
With newMail
'Add the subject of the mail message
.Subject = vstrSubject
'Create some body text
.Body = vstrBody
'**************
'go through all
'addresses passed in
'**************
Dim strEmailAddress As String
Dim intIndex As Integer
For intIndex = 1 To vcolEmailAddress.Count
strEmailAddress = vcolEmailAddress.Item(intIndex)
'Add a recipient and test to make sure that the
'address is valid using the Resolve method
With .Recipients.Add(strEmailAddress)
.Type = olTo
If Not .Resolve Then
'MsgBox "Unable to resolve address.", vbInformation
Debug.Print "Unable to resolve address " & strEmailAddress & "."
'Exit Sub
End If
End With
Next intIndex
' 'Attach a file as a link with an icon
' With .Attachments.Add _
' ("\\Training\training.xls", olByReference)
' .DisplayName = "Training info"
' End With
'Send the mail message
.Send
End With
'Release memory
Set ol = Nothing
Set ns = Nothing
Set newMail = Nothing
End Sub