Então Roberto,
O problema é nos PCs da rede onde eu estou mesmo. Por que em outra rede funcionou sem alteração alguma o esquema do MAPI CONTROL, simples como ele é.
Vou usar um outro esquema que um brother passou no vbmania usando MICROSOFT OUTLOOK OBJECT LIBRARY:
Dim oEmail As Outlook.Application
Dim oEmailAtach As Outlook.MailItem
Set oEmail = Outlook.Application
Set oEmailAtach = oEmail.CreateItem(olMailItem)
With oEmailAtach
.To = lblEmail.Caption
.Subject = "Teste"
.Attachments.Add "C:Temp este.txt", olByValue, 1, "teste.txt"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY> Mensagem OK </BODY></HTML>"
.Display
End With
Obrigado.
