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***********@aol.com

Thanks..

[Ed Robichaud]

Look in Access Help for the "SendObject" command.
"Des" <de***********@aol.comwrote in message
news:11*********************@o40g2000prh.googlegro ups.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***********@aol.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*********************@o40g2000prh.googlegro ups.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***********@aol.com

Thanks..

[access baby]

On Apr 24, 5:46 am, "Ed Robichaud" <[e-mail]:

Look in Access Help for the "SendObject" command.

"Des" <[e-mail] in message

news:11*********************@o40g2000prh.googlegro ups.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 [e-mail]

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(ByRef 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("Outlook.Application")
Set oMail = oLook.CreateItem(0)
With oMail
.To = stSendTo
.Body = stBody
.Subject = stSubject
.ReadReceiptRequested = True

If intAcount <0 Then
For i = 1 To intAcount
.Attachments.Add (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*********@wdn.comwrote in message
news:46**********************@news.wdn.com...

Look in Access Help for the "SendObject" command.
"Des" <de***********@aol.comwrote in message
news:11*********************@o40g2000prh.googlegro ups.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***********@aol.com

Thanks..

[Des]

On Apr 24, 7:46 am, "Ed Robichaud" <[e-mail]:

Look in Access Help for the "SendObject" command.

"Des" <[e-mail] in message

news:11*********************@o40g2000prh.googlegro ups.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 [e-mail]

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" <[e-mail]:

Look in Access Help for the "SendObject" command.

"Des" <[e-mail] in message

news:11*********************@o40g2000prh.googlegro ups.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 [e-mail]

Thanks..- Hide quoted text -

- Show quoted text -

[John Mishefske]

Des wrote:

On Apr 24, 7:46 am, "Ed Robichaud" <[e-mail]:

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

"Des" <[e-mail] in message

news:11*********************@o40g2000prh.googleg roups.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 [e-mail]

>>>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 cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 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("CDO.Message")
objMessage.Subject = "Sample CDO Message"
objMessage.From = """Me"" <[e-mail]>"
objMessage.To = "so******@yahoo.com"
objMessage.TextBody = "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.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"

' Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoNTLM

' Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

' Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"

' Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Connection Timeout in seconds (the maximum time CDO will try to
' establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

' ==End remote SMTP server configuration section==

objMessage.Send

Set objMessage = Nothing

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

[paii, Ron]

"John Mishefske" <jm**********@SPAMyahoo.comwrote in message
news:46***********************@roadrunner.com...

Des wrote:

On Apr 24, 7:46 am, "Ed Robichaud" <[e-mail]:

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

"Des" <[e-mail] in message

news:11*********************@o40g2000prh.googlegr oups.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 [e-mail]

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 cdoSendUsingPickup = 1 'Send message using the local SMTP service

pickup directory.

Const cdoSendUsingPort = 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("CDO.Message")
objMessage.Subject = "Sample CDO Message"
objMessage.From = """Me"" <[e-mail]>"
objMessage.To = "so******@yahoo.com"
objMessage.TextBody = "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.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =

"mail.your.com"

>
' Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =

cdoNTLM

>
' Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") =

"youruserid"

>
' Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =

"yourpassword"

>
' Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Connection Timeout in seconds (the maximum time CDO will try to
' establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 60

>
objMessage.Configuration.Fields.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**********@SPAMyahoo.comwrote 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.AddAttachment "c:\temp\test.doc"

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

[paii, Ron]

"John Mishefske" <jm**********@SPAMyahoo.comwrote in message
news:46**********************@roadrunner.com...

paii, Ron wrote:

"John Mishefske" <jm**********@SPAMyahoo.comwrote 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.AddAttachment "c:\temp\test.doc"

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

Thank you very much, I will look into those recourses.