Comments on: Update VBA code page for Tables and Create/Mail PDF files

By: Ron de Bruin

Ron de Bruin — Tue, 29 Sep 2009 16:36:00 +0000

It also miss the not equal sign in this line I see now

If Dir(SigString) "" Then

Always problem when I try to post something in comments

By: Ron de Bruin

Ron de Bruin — Tue, 29 Sep 2009 15:42:00 +0000

Change & in &

The VBA tags not like the &

By: Ron de Bruin

Ron de Bruin — Tue, 29 Sep 2009 15:37:00 +0000

Try this for Vista
Replace the RDB_Mail_PDF_Outlook function with this one and add the GetBoiler function from Dick
Be sure that you change Mysig.txt to your sig name

In XP use this string

SigString = "C:Documents and Settings" & Environ("username") & _
"Application DataMicrosoftSignaturesMysig.txt"

Function RDB_Mail_PDF_Outlook(FileNamePDF As String, StrTo As String, _
StrSubject As String, StrBody As String, Send As Boolean)
Dim OutApp As Object
Dim OutMail As Object
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

SigString = "C:Users" & Environ("username") & _
"AppDataRoamingMicrosoftSignaturesMysig.txt"

If Dir(SigString) "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

On Error Resume Next
With OutMail
.To = StrTo
.CC = ""
.BCC = ""
.Subject = StrSubject
.Body = StrBody & vbNewLine & vbNewLine & Signature
.Attachments.Add FileNamePDF
If Send = True Then
.Send
Else
.Display
End If
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Function

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

By: Ron de Bruin

Ron de Bruin — Mon, 28 Sep 2009 22:21:00 +0000

Hi Philippe

Send me a private mail and I will try to make the changes for you tomorrow evening.

By: Philippe

Philippe — Mon, 28 Sep 2009 18:08:00 +0000

Thanks Ron !

Just one more question (for that time !) :

In the "RDB_Mail_PDF_Outlook" Function, do I have to adapt the strbody argurment ?

Philippe

By: Ron de Bruin

Ron de Bruin — Mon, 28 Sep 2009 16:16:00 +0000

Hi Philippe

Yes this is possible you must add code like this
http://www.rondebruin.nl/mail/folder3/signature.htm

By: Philippe

Philippe — Mon, 28 Sep 2009 09:09:00 +0000

Hi Ron,

To complete my customized vba procedure largely based on your guidelines, I would like to know if it's possible to include in the mail a pre-set signature ?

Thanks by advance for your help.

Philippe

By: Ron de Bruin

Ron de Bruin — Wed, 26 Aug 2009 18:11:00 +0000

Hi all

FYI

I update the PDF page.
http://www.rondebruin.nl/pdf.htm

There is a new argument now in the function call that you can use if you
want to use a fixed file name instead of enter a name in the save dailog.

Ron

By: Ron de Bruin

Ron de Bruin — Wed, 17 Jun 2009 20:37:00 +0000

Hi Philippe

There is no option in the code to set this.
When I have time this week I check it out.

By: Philippe

Philippe — Wed, 17 Jun 2009 13:27:00 +0000

Hi Ron,

I use your proc with happyness since several weeks and I just see that the pdf file created by VBA is not in a standard A4 format.

Do you know how to change this format ?

Another time, thanks a lot