E
Earl.AKA J.Alladien in access forum!!
Hi all,
I am working with following code from Arvin Meyer to send out e-mails from
my db:
SEND = -1
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = Forms![Names1]![E-mail Address]
.Subject = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.SEND
'.ReadReceiptRequested
End With
Exit_Here:
Set objOutlook = Nothing
Exit Sub
Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here
The table this form is based on also contains the peoples names all the
adresses belong to;is it possible to adress each person personally like when
you would use MERGE MAIL fe:
Dear John White,
Pls see following etc etce.........
Dear harold White,
Pls see following etc etce.........
Dear jennfier Aniston,
Pls see following etc etce.........
Thanks in advance!
I am working with following code from Arvin Meyer to send out e-mails from
my db:
SEND = -1
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = Forms![Names1]![E-mail Address]
.Subject = Forms![Names1]![SUB]
.Body = Forms![Names1]![Body]
.SEND
'.ReadReceiptRequested
End With
Exit_Here:
Set objOutlook = Nothing
Exit Sub
Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here
The table this form is based on also contains the peoples names all the
adresses belong to;is it possible to adress each person personally like when
you would use MERGE MAIL fe:
Dear John White,
Pls see following etc etce.........
Dear harold White,
Pls see following etc etce.........
Dear jennfier Aniston,
Pls see following etc etce.........
Thanks in advance!