Try
dim SMTPc as SMTP
dim slash as string ="/" ' Depende del tipo de servidor si es en B4J
SMTPc.Initialize("obra.constructor1.cl", 465, "[email protected]", "123223", "SMTPc")
SMTPc.UseSSL = True
SMTPc.HtmlBody = False
'SMTPc.AdditionalHeaders.Put("Content-Type","application/pdf")
SMTPc.Sender = "Compras Constructor <[email protected]>"
SMTPc.to = Array As String(strEmails)
SMTPc.BCC = Array As String(strCCEmails)
SMTPc.Subject = "ORDEN DE COMPRA " & strEmpresa
SMTPc.Body = "Se adjunta Orden de Compra" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & " Atentamente " & Chr(13) & Chr(10) &" Compras Constructor"
SMTPc.AddAttachment(File.DirApp & slash & DownloadFolder & "OC-" & IDOBRA & slash,OCOMPRA &"-ordendecompra.pdf")
SMTPc.Send
Catch
Log("Email NO enviado ")
End Try