auto email pdf

[Des]

I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via de***********@a ol.com

Thanks..

[Ed Robichaud]

Look in Access Help for the "SendObject " command.
"Des" <de***********@ aol.comwrote in message
news:11******** *************@o 40g2000prh.goog legroups.com...

>I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via de***********@a ol.com

Thanks..

[salad]

Ed Robichaud wrote:

Look in Access Help for the "SendObject " command.

SendObject allows you to send non-Access documents as attachments?

To the OP, you might want to start here.
http://www.granite.ab.ca/access/email.htm

>

"Des" <de***********@ aol.comwrote in message
news:11******** *************@o 40g2000prh.goog legroups.com...

>>I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via de***********@a ol.com

Thanks..

[access baby]

On Apr 24, 5:46 am, "Ed Robichaud" <edrobich...@wd n.comwrote:

Look in Access Help for the "SendObject " command.

"Des" <despairing...@ aol.comwrote in message

news:11******** *************@o 40g2000prh.goog legroups.com...

I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via despairing...@a ol.com

Thanks..- Hide quoted text -

- Show quoted text -

this might help you
http://office.microsoft.com/en-gb/te...033.aspx?Categ...

[paii, Ron]

SendObject will not allow you to send a file. You will need a function
opening an Outlook object. Following is a function I have adapted to send a
list of files.

'---------------------
' Create a email with attachments
' stSendTo Email address
' stBody Body of the message
' stSubject Subject of the message
' astAttach Array of strings listing the path to the attachments
' intAcount Number of attachments
' intSend True if the message should be sent without preview

Public Function EmailAttach(ByR ef stSendTo As String, ByRef stBody As
String, ByRef stSubject As String, _
astAttach() As String, intAcount As
Integer, intSend As Integer) As Integer

On Error GoTo EmailAttach

Dim oLook As Object
Dim oMail As Object
Dim i As Integer

Set oLook = CreateObject("O utlook.Applicat ion")
Set oMail = oLook.CreateIte m(0)
With oMail
.To = stSendTo
.Body = stBody
.Subject = stSubject
.ReadReceiptReq uested = True

If intAcount <0 Then
For i = 1 To intAcount
.Attachments.Ad d (astAttach(i - 1))
Next
End If

If intSend = True Then
.Send ' Windows may complain about
security
Else
.Display
End If

End With

Set oMail = Nothing
Set oLook = Nothing
EmailAttach = True
Exit Function

EmailAttach:

MsgBox "The following error was noted : " & Err.Description & Chr$(10) &
Chr$(13) & _
"Your email may not have been sent.", vbCritical, "Error"

On Error Resume Next
Set oMail = Nothing
Set oLook = Nothing
EmailAttach = False

End Function

"Ed Robichaud" <ed*********@wd n.comwrote in message
news:46******** **************@ news.wdn.com...

Look in Access Help for the "SendObject " command.
"Des" <de***********@ aol.comwrote in message
news:11******** *************@o 40g2000prh.goog legroups.com...

I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via de***********@a ol.com

Thanks..

[Des]

On Apr 24, 7:46 am, "Ed Robichaud" <edrobich...@wd n.comwrote:

Look in Access Help for the "SendObject " command.

"Des" <despairing...@ aol.comwrote in message

news:11******** *************@o 40g2000prh.goog legroups.com...

I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via despairing...@a ol.com

Thanks..

That doesn't really help me. I use access to bring data in and then I
convert it to pdf and from there is where I would like to set up the
auto email function. I'm assuming it's just a simple batch function
and possibly a script. If anyone has done something like this before,
please let me know. Thanks again for the help.

[BerkshireGuy]

There is a great addon from ACG Soft that allows both PDF and
emailing.

It works with all different types of PDF drivers, email clients,
etc.

I highly recommend them.

http://www.groupacg.com/

On Apr 24, 8:46 am, "Ed Robichaud" <edrobich...@wd n.comwrote:

Look in Access Help for the "SendObject " command.

"Des" <despairing...@ aol.comwrote in message

news:11******** *************@o 40g2000prh.goog legroups.com...

I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via despairing...@a ol.com

Thanks..- Hide quoted text -

- Show quoted text -

[John Mishefske]

Des wrote:

On Apr 24, 7:46 am, "Ed Robichaud" <edrobich...@wd n.comwrote:

>>Look in Access Help for the "SendObject " command.

"Des" <despairing...@ aol.comwrote in message

news:11****** *************** @o40g2000prh.go oglegroups.com. ..

>>>I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

>>>I can be emailed via despairing...@a ol.com

>>>Thanks..

That doesn't really help me. I use access to bring data in and then I
convert it to pdf and from there is where I would like to set up the
auto email function. I'm assuming it's just a simple batch function
and possibly a script. If anyone has done something like this before,
please let me know. Thanks again for the help.

There are many options. One I prefer is to use the CDO library which can easily be used in
Access VBA or vbScript.

Here is sample code (in vbScript):

Const cdoSendUsingPic kup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPor t = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("C DO.Message")
objMessage.Subj ect = "Sample CDO Message"
objMessage.From = """Me"" <[e-mail]>"
objMessage.To = "so******@yahoo .com"
objMessage.Text Body = "This is some sample message text.." & vbCRLF & _
"It was sent using the CDO Library."

' ==This section provides the configuration information for the remote SMTP server.

objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendusing") = 2

' Name or IP of Remote SMTP Server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpserver") = "mail.your. com"

' Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpauthenticat e") = cdoNTLM

' Your UserID on the SMTP server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendusername") = "youruserid "

' Your password on the SMTP server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendpassword") = "yourpasswo rd"

' Server port (typically 25)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpserverport" ) = 25

' Use SSL for the connection (False or True)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpusessl") = False

' Connection Timeout in seconds (the maximum time CDO will try to
' establish a connection to the SMTP server)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpconnectiont imeout") = 60

objMessage.Conf iguration.Field s.Update

' ==End remote SMTP server configuration section==

objMessage.Send

Set objMessage = Nothing

--
---------------
John Mishefske, Microsoft Access MVP

[paii, Ron]

"John Mishefske" <jm**********@S PAMyahoo.comwro te in message
news:46******** *************** @roadrunner.com ...

Des wrote:

On Apr 24, 7:46 am, "Ed Robichaud" <edrobich...@wd n.comwrote:

>Look in Access Help for the "SendObject " command.

"Des" <despairing...@ aol.comwrote in message

news:11******* **************@ o40g2000prh.goo glegroups.com.. .
I was wondering if anyone could help me out with this. I use Access
2003 to generate certain files and then I convert them to pdf, I was
wondering if anyone would know the code I could use where I would have
the ability to have them automatically emailed after they're converted
to different sources?

I can be emailed via despairing...@a ol.com

Thanks..

That doesn't really help me. I use access to bring data in and then I
convert it to pdf and from there is where I would like to set up the
auto email function. I'm assuming it's just a simple batch function
and possibly a script. If anyone has done something like this before,
please let me know. Thanks again for the help.

There are many options. One I prefer is to use the CDO library which can

easily be used in

Access VBA or vbScript.

Here is sample code (in vbScript):

Const cdoSendUsingPic kup = 1 'Send message using the local SMTP service

pickup directory.

Const cdoSendUsingPor t = 2 'Send the message using the network (SMTP over

the network).

>
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("C DO.Message")
objMessage.Subj ect = "Sample CDO Message"
objMessage.From = """Me"" <[e-mail]>"
objMessage.To = "so******@yahoo .com"
objMessage.Text Body = "This is some sample message text.." & vbCRLF & _
"It was sent using the CDO Library."

' ==This section provides the configuration information for the remote

SMTP server.

>
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendusing") = 2

' Name or IP of Remote SMTP Server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpserver") =

"mail.your. com"

>
' Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpauthenticat e") =

cdoNTLM

>
' Your UserID on the SMTP server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendusername") =

"youruserid "

>
' Your password on the SMTP server
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/sendpassword") =

"yourpasswo rd"

>
' Server port (typically 25)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpserverport" ) = 25

' Use SSL for the connection (False or True)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpusessl") = False

' Connection Timeout in seconds (the maximum time CDO will try to
' establish a connection to the SMTP server)
objMessage.Conf iguration.Field s.Item _
("http://schemas.microso ft.com/cdo/configuration/smtpconnectiont imeout")

= 60

>
objMessage.Conf iguration.Field s.Update

' ==End remote SMTP server configuration section==

objMessage.Send

Set objMessage = Nothing

--
---------------
John Mishefske, Microsoft Access MVP

I was playing with your code, which worked perfect.

How do you attach a file or files to the message?

[John Mishefske]

paii, Ron wrote:

"John Mishefske" <jm**********@S PAMyahoo.comwro te in message news:46******** *************** @roadrunner.com ...

>There are many options. One I prefer is to use the CDO library which can easily be used in
Access VBA or vbScript.
--
---------------
John Mishefske, Microsoft Access MVP

I was playing with your code, which worked perfect.

How do you attach a file or files to the message?

The .AddAttachment method which takes a String file location:

objMessage.AddA ttachment "c:\temp\test.d oc"

You could put it a line above the objMessage.Send in my copied example.

Here are some resources to see sample coding:

http://www.paulsadowski.com/WSH/cdo.htm

http://www.pa-software.com/scripts/?tp=vbs&sc=cdoemail

http://msdn2.microsoft.com/en-us/library/ms526983.aspx
--
---------------
John Mishefske, Microsoft Access MVP