Hi,
i've create a button with an action to call a macro that make some filter and after send an email.
Here's the code:
sub Export
ActiveDocument.Fields("Descrizione Raggruppamento 3 Clienti").Select "User1"
Set sel_val = ActiveDocument.Fields("Descrizione Raggruppamento 3 Clienti").GetSelectedValues
Path = "C:\" & sel_val.Item(0).Text & ".xls"
set obj = ActiveDocument.GetSheetObject("CH362")
obj.ExportBiff Path
call SendGMail(Path,"user1@mail.com")
end sub
Sub SendGMail(nomeFile,mail)
filepath=nomeFile
email = mail
Set objMsg = CreateObject("CDO.Message")
Set msgConf = CreateObject("CDO.Configuration")
'Server Configuration
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
msgConf.Fields.Update
'End With
objMsg.To = email ' type to mail id
objMsg.From = "test@mail.com" 'type from mail id
objMsg.Subject = "Customer Service Report"
objMsg.HTMLBody = "check the attachment"
objMsg.AddAttachment filepath ' Attachement object
objMsg.Sender = "Test Service"
Set objMsg.Configuration = msgConf
' Send
objMsg.Send
Msgbox("Email Sent Successfully")
' Clear
Set objMsg = nothing
Set msgConf = nothing
end sub
From qv.exe works but from browser don't work.
How can i solve?
Thanks