1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
' é aqui minha pequena notícia de código atual 'com emperramento adiantado Aplicação não ofuscante como Outlook.Application objOutlookMsg não ofuscante como Outlook.MailItem objOutlookRecip não ofuscante como Outlook.Recipient objOutlookAttach não ofuscante como Outlook.Attachment Ajustar a aplicação = o CreateObject (“Outlook.Application”) Escurecer SafeItem, oItem, Tag Ajustar SafeItem = CreateObject (“Redemption.SafeMailItem”) 'criam um exemplo de Redemption.SafeMailItem Ajustar o oItem = o Application.CreateItem (0) 'criam uma mensagem nova SafeItem.item = o oItem 'ajustaram a propriedade do artigo 'etc. ......