Boa noite!!
Use a pesquisa do fórum!!
search.php
Veja também
http://www.rondebruin.nl/sendmail.htm
Att
Caros consegui salvar o arquivo e enviar o anexo via lotus notes pelo código abaixo, agora alguém sabe como enviar o link para quem receber, conseguir abrir o arquivo que está salvo na rede...pois estou conseguindo enviar o anexo porém quando abre o arquivo ele não está apontado para a rede...deste jeito se alguém entrar e alterar não ficara salvo na rede...
Private Sub CommandButton1_Click()
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Você está com o lotus notes aberto?", vbYesNo, "Salvar e enviar notes")
If resultado = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
Dim recip(25) As Variant
recip(0) = "reinaldo.silva@electrolux.com.br"
MailDoc.sendto = recip
MailDoc.Subject = "Formulário SISCOSERV foi atualizado."
'BodyText = ""
'MailDoc.Body = BodyText
MailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
caminho = "\BRGABS001G_DFIN_CTRL0236721Projetos_VBAteste enviar notes.xlsm"
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", caminho, "Attachment")
'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items FOLDER
MailDoc.Send 0, Recipient
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Else
resultado = MsgBox("Favor abrir e depois salvar novamente?", vbOKOnly, "Salvar e enviar notes")
End If
End Sub
Postado : 18/12/2012 12:18 pm