if itemVO.obrano > 0 andalso itemVO.tiposaft = "NE" then
'Instanciar as variáveis para envio de e-mail
Dim emailFrom as String = "email_do_remetente@gmail.com"
Dim emailTo as String = "email_de_destino@gmail.com"
Dim emailSubject as String = "Nova Encomenda Emitida"
Dim emailBody as String = "Foi emitida a Encomenda número <b>"+cstr(itemVO.obrano)+"</b> para o cliente <b>"+itemVO.nome+"</b> no valor total de <b>"+cstr(itemvo.etotaldeb)+"</b> "+itemvo.moeda+"<br><br><br>by <b>PHC GO</b>"
Dim isBodyHTML as Boolean = True
'Utilização da função genéria de envio de e-mail da framework
SDK.Email.send(emailFrom, emailTo, emailSubject, emailBody, isBodyHTML)
listMsg.Add(New MsgInfo("Foi enviado um e-mail para: " + emailTo))
endif