Imports System
Sub RDB_Workbook_To_PDF_And_Create_Mail()
Dim FileName As String
FileName = RDB_Create_PDF(Source:=ActiveWorkbook, _
FixedFilePathName:="", _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
StrTo:="", _
StrCC:="", _
StrBCC:="", _
StrSubject:="This is the Master slip and salary slip ", _
Signature:=True, _
send:=False, _
StrBody:="<H3><B>Dear staff</B></H3><br>" & _
"<body>Attached herewith is your February, 2015 salary slip for your perusal." & _
"<br><br>" & "Regards," & _
"<p></P>" & "Admin&Finance Division" & _
"<p></P>" & "EcoPrasinos Engineering SDN. BHD.</body>"
Else
MsgBox " ERROR! Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End Sub
SW1wb3J0cyBTeXN0ZW0KU3ViIFJEQl9Xb3JrYm9va19Ub19QREZfQW5kX0NyZWF0ZV9NYWlsKCkKICAgIERpbSBGaWxlTmFtZSBBcyBTdHJpbmcKCgogICAgRmlsZU5hbWUgPSBSREJfQ3JlYXRlX1BERihTb3VyY2U6PUFjdGl2ZVdvcmtib29rLCBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEZpeGVkRmlsZVBhdGhOYW1lOj0iIiwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBPdmVyd3JpdGVJZkZpbGVFeGlzdDo9VHJ1ZSwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBPcGVuUERGQWZ0ZXJQdWJsaXNoOj1GYWxzZSkKCiAgICAKCiAgICBJZiBGaWxlTmFtZSA8PiAiIiBUaGVuCiAgICAgICAgUkRCX01haWxfUERGX091dGxvb2sgRmlsZU5hbWVQREY6PUZpbGVOYW1lLCBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3RyVG86PSIiLCBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3RyQ0M6PSIiLCBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3RyQkNDOj0iIiwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFN0clN1YmplY3Q6PSJUaGlzIGlzIHRoZSBNYXN0ZXIgc2xpcCBhbmQgc2FsYXJ5IHNsaXAgIiwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFNpZ25hdHVyZTo9VHJ1ZSwgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlbmQ6PUZhbHNlLCBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3RyQm9keTo9IjxIMz48Qj5EZWFyIHN0YWZmPC9CPjwvSDM+PGJyPiIgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIjxib2R5PkF0dGFjaGVkIGhlcmV3aXRoIGlzIHlvdXIgRmVicnVhcnksIDIwMTUgc2FsYXJ5IHNsaXAgZm9yIHlvdXIgcGVydXNhbC4iICYgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICI8YnI+PGJyPiIgJiAiUmVnYXJkcywiICYgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiPHA+PC9QPiIgJiAiQWRtaW4mRmluYW5jZSBEaXZpc2lvbiIgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICI8cD48L1A+IiAmICJFY29QcmFzaW5vcyBFbmdpbmVlcmluZyBTRE4uIEJIRC48L2JvZHk+IgogICAgRWxzZQogICAgICAgIE1zZ0JveCAiIEVSUk9SISBOb3QgcG9zc2libGUgdG8gY3JlYXRlIHRoZSBQREYsIHBvc3NpYmxlIHJlYXNvbnM6IiAmIHZiTmV3TGluZSAmIF8KICAgICAgICAgICAgICAgIk1pY3Jvc29mdCBBZGQtaW4gaXMgbm90IGluc3RhbGxlZCIgJiB2Yk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICJZb3UgQ2FuY2VsZWQgdGhlIEdldFNhdmVBc0ZpbGVuYW1lIGRpYWxvZyIgJiB2Yk5ld0xpbmUgJiBfCiAgICAgICAgICAgICAgICJUaGUgcGF0aCB0byBTYXZlIHRoZSBmaWxlIGluIGFyZyAyIGlzIG5vdCBjb3JyZWN0IiAmIHZiTmV3TGluZSAmIF8KICAgICAgICAgICAgICAgIllvdSBkaWRuJ3Qgd2FudCB0byBvdmVyd3JpdGUgdGhlIGV4aXN0aW5nIFBERiBpZiBpdCBleGlzdCIKICAgIEVuZCBJZgpFbmQgU3Vi
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/zuV0YG/prog.vb (2,4) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (3,8) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (6,13) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (13,7) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (14,29) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (26,9) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (27,15) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (32,11) : error VBNC30203: Identifier expected.
/home/zuV0YG/prog.vb (33,8) : error VBNC30203: Identifier expected.
There were 9 errors and 0 warnings.
Compilation took 00:00:00.6095010