Hello All,

I have a process of mass mailing to customers.I have a fixed body of letter which goes in my email (outlook 2003) along with a pdf attachment personalized to each customer.

Is there a way to email from access(2003) through Outlook(2003) with the pdf attachment. Please note the pdf attachment is personalized so when i email X customer the pdf address to X should come . I name the pdf with the customer code and the same code and email is available in access table also.

I am exploring an option for this mass mailing and also want to know how i can do mailmerge using Access presently my excel holds data and i merge it in word.

Appreciate your help

Regards

I do pretty much the same thing. I would use this for the PDF:

http://www.lebans.com/reporttopdf.htm

and here are some thoughts on the emailing:

Emailing a different report to each recipient

__________________
Paul
MS Access MVP
www.BaldyWeb.com

I downloaded the access file with the DLL files from the first link I guess it can open only SNP files how do i convert a word file to pdf....

On the second link for mailing individual links it refers to code i am not good at modules or VBA how do I do this should I copy the code present in the link to a module ?

Thanks

I'm not sure how to send the Word doc to PDF; I always have the content in Access.

I would study the code to understand what it's doing. Then you can cut/paste the appropriate parts into your code. Feel free to ask if you can't figure out what any particular bit is doing.

__________________
Paul
MS Access MVP
www.BaldyWeb.com

I think thats a good idea to keep the letter content in Access through forms ...that is what i tried after reading the link which you provided. I get one error "Frmmain" is missing and it points out to the line in the module (If (IsNull(Forms!frmMail!CCAddress)) Then).

But this Form is very much present but not sure why it should hive this error. below is the VBA code. ofcourse after the End sub i did a Ctrl G anfor specifing the attachment but i got the above error

Option Compare Database

Option Compare Database
Option Explicit

Sub SendMessages(Optional AttachmentPath)

Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim TheAddress As String

Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset("tblMailingList")
MyRS.MoveFirst

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

Do Until MyRS.EOF
' Create the e-mail message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
TheAddress = MyRS![EmailAddress]

With objOutlookMsg
' Add the To recipients to the e-mail message.
Set objOutlookRecip = .Recipients.Add(TheAddress)
objOutlookRecip.Type = olTo

' Add the Cc recipients to the e-mail message.
If (IsNull(Forms!frmMail!CCAddress)) Then
Else
Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)
objOutlookRecip.Type = olCC
End If

' Set the Subject, the Body, and the Importance of the e-mail message.
.Subject = Forms!frmMail!Subject
.Body = Forms!frmMail!MainText
.Importance = olImportanceHigh 'High importance

'Add the attachment to the e-mail message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Resolve the name of each Recipient.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send
End With
MyRS.MoveNext
Loop
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

Is the form open when the code runs? It needs to be. You mentioned frmMain but I see frmMail in the code. Might be a typo, but make sure the spelling is correct.

__________________
Paul
MS Access MVP
www.BaldyWeb.com

Yes I had kept the form open when i ran the code. Sorry it was a typo here but i its frmmail in the access file.

If the form is open and the form and control names are spelled correctly, I'm puzzled. Can you post the db?

__________________
Paul
MS Access MVP
www.BaldyWeb.com

Hi

I had attached the access file and the empty test text file.

One more question I have is i had ket the form open and i filled the below infor

CCaddress - Dear Customer

Subject - some sub text

Main message - a para

after i close this form and reopen none of this info is saved i understand its not linked to a table ...am i making a mistake .

In the point 5 in link http://support.microsoft.com/?id=318881

form creation i saw RecordSource: tblMailingList i dint do anything for this may be is this the error ?

Thanks again for your help

Attached Files

Copy of Access Mailing.zip (37.4 KB, 7 views)

The textbox is not named "CCAddress", it's named "Text1", so the line has to be:

If (IsNull(Forms!frmMail.Text1)) Then

CCAddress is just the caption of the associated label. Same for the other two. If the form is not bound to a table, anything entered into the textboxes will be lost when the form is closed.

__________________
Paul
MS Access MVP
www.BaldyWeb.com

Now i am getting the below line as error in yellow

Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)

will it be possible for you to fix my db with appr txt in the form and send me ....

Thanks

I'm actually not where I have your db working right now. It doesn't appear you changed to the actual textbox name there. You have to do that in all instances where you refer to the form.

__________________
Paul
MS Access MVP
www.BaldyWeb.com

Finally got it now one more request ...if i want to mask the sender email ID or make it as not repliable by receipient..how can I achieve this ?

Not sure about masking or making not reply-able, but I use this to set the address that will show as the sender:

.SentOnBehalfOfName = "Whatever@Blah.com"

__________________
Paul
MS Access MVP
www.BaldyWeb.com

Thanks a lot this worked and I was able to put the from sender name as desired