Code:
a.WriteLine "<cac:Attachment>"
a.WriteLine "<cbc:EmbeddedDocumentBinaryObject mimeCode=""application/pdf"" encodingCode=""base64"" filename=" & Chr(34) & strFajl & Chr(34) & ">"
a.WriteLine ConvertFileToBase64(strFajl)
a.WriteLine "</cbc:EmbeddedDocumentBinaryObject>"
a.WriteLine "</cac:Attachment>"
Treba ti ConvertFileToBase64. Ima ga na google.
StrFajl je putanja do PDF-a koji treba da se ubaci.