Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Send Email from VB app
- Thread starter Sheriff
- Start date
Guest_imported
New member
- Jan 1, 1970
- 0
hey mate, can u give me it too?
Morden@bigpond.net.au
Morden@bigpond.net.au
- Thread starter
- #5
Just use the 2 MAPI activX control components. Is very simple and stores the outgoing email in your Outlook sent items box.
This is how I bulk email send blind CCs to all customers in groups of 50, the email adresses are all in an MSACCESS table that is the Datasource of my ADODCEmail:-
Sub SendAllEmail(Recipients As Integer)
Dim RecipientAddress As String
On Error GoTo SAEError
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
If Recipients < 51 Then AdodcEmail.Recordset.MoveFirst
MAPIMessages1.Compose
MAPIMessages1.MsgSubject = EmailSubjectBox
MAPIMessages1.MsgNoteText = EmailMessageBox
For a = 1 To Recipients
MAPIMessages1.RecipIndex = a - 1
X = AdodcEmail.Recordset.Fields("FirstName"
& " " & AdodcEmail.Recordset.Fields("LastName"
MAPIMessages1.RecipDisplayName = X
MAPIMessages1.RecipAddress = AdodcEmail.Recordset.Fields("EmailURL"
MAPIMessages1.RecipType = 3 'blind carbon copy
AdodcEmail.Recordset.MoveNext
Next
MAPIMessages1.Send False
EndSAE:
MailHelpLabel.Caption = a - 1 & " Customers have been sent an Email."
If a - 1 <> Recipients Then MailHelpLabel.Caption = MailHelpLabel.Caption & " Not all of the Emails were sent. Check the [SentItems] and [Outbox]."
On Error GoTo 0
Exit Sub
SAEError:
Beep
MsgBox "Fault in sending Email", 16, "WARNING"
If MAPISession1.SessionID > 0 Then MAPISession1.SignOff
Resume EndSAE
End Sub
This is how I bulk email send blind CCs to all customers in groups of 50, the email adresses are all in an MSACCESS table that is the Datasource of my ADODCEmail:-
Sub SendAllEmail(Recipients As Integer)
Dim RecipientAddress As String
On Error GoTo SAEError
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
If Recipients < 51 Then AdodcEmail.Recordset.MoveFirst
MAPIMessages1.Compose
MAPIMessages1.MsgSubject = EmailSubjectBox
MAPIMessages1.MsgNoteText = EmailMessageBox
For a = 1 To Recipients
MAPIMessages1.RecipIndex = a - 1
X = AdodcEmail.Recordset.Fields("FirstName"
& " " & AdodcEmail.Recordset.Fields("LastName"MAPIMessages1.RecipDisplayName = X
MAPIMessages1.RecipAddress = AdodcEmail.Recordset.Fields("EmailURL"
MAPIMessages1.RecipType = 3 'blind carbon copy
AdodcEmail.Recordset.MoveNext
Next
MAPIMessages1.Send False
EndSAE:
MailHelpLabel.Caption = a - 1 & " Customers have been sent an Email."
If a - 1 <> Recipients Then MailHelpLabel.Caption = MailHelpLabel.Caption & " Not all of the Emails were sent. Check the [SentItems] and [Outbox]."
On Error GoTo 0
Exit Sub
SAEError:
Beep
MsgBox "Fault in sending Email", 16, "WARNING"
If MAPISession1.SessionID > 0 Then MAPISession1.SignOff
Resume EndSAE
End Sub
- Status
