topic Email sending not working in QlikView

Email sending not working

Sat, 23 Apr 2011 17:40:55 GMT

Why this this function not working?

function sending()
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Subject"
objMessage.From = "test1@gmail.com"
objMessage.To = "test2@gmail.com"

objMessage.TextBody = "Body"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername ") ="test1@gmail.com"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword ") ="password"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

objMessage.Configuration.Fields.Update

objMessage.Send
end function

Email sending not working

Miguel_Angel_Baeyens — Mon, 25 Apr 2011 11:54:21 GMT

Hi,

You need to add the "Use SSL" as required by Google

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 ' True will work as well

Hope that helps.

Email sending not working

Mon, 25 Apr 2011 12:26:57 GMT

Thanks, but i still have a problem:

530 5.5.1

http://mail.google.com/support/bin/answer.py?answer=14257

Re: Email sending not working

Miguel_Angel_Baeyens — Mon, 25 Apr 2011 13:27:31 GMT

For what it's worth, here is the code I'm using with GMail. Tested few minutes ago and working:

Sub SendGMail() 
' Object creation 
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") = "smtp.gmail.com" 
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com" 
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 
msgConf.Fields.Update 
' Email 
objMsg.To = "user@gmail.com" 
objMsg.From = "fromuser@domain.com" 
objMsg.Subject = "Test send with Gmail account" 
objMsg.HTMLBody = "HTML/Plain text message." 
objMsg.Sender = "Mr. Name" 
Set objMsg.Configuration = msgConf 
' Send 
objMsg.Send 
' Clear 
Set objMsg = nothing 
Set msgConf = nothing
End Sub

Hope that helps.

Miguel Angel Baeyens

BI Consultant

Comex Grupo Ibérica

Email sending not working

Mon, 25 Apr 2011 13:49:06 GMT

Thank you. It is working.

Email sending not working

marcohadiyanto — Wed, 08 Jun 2011 09:14:37 GMT

hi all,

how about we send gmail to yahoo? can work?

i already tried if i set the sender from one domain (exchange) to another email (recepient) on the same domain, it can work, but if the recepient on yahoo or different domain. it can't work..

thanks,

Marco

Re: Email sending not working

Miguel_Angel_Baeyens — Wed, 08 Jun 2011 09:25:11 GMT

Hello Marco,

It's working fine for me from GMail to Yahoo mail. Anyway, check that the line

objMsg.From = "fromuser@domain.com"

Is properly configured.

If you are using your Exchange server instead of the gmail one, you should check your anti-relay and anti-spam rules, but it doesn't make much sense to me since most of the time mails are sent to people in different domains.

Hope that helps.

Miguel Angel Baeyens

BI Consultant

Comex Grupo Ibérica

Re: Email sending not working

marcohadiyanto — Wed, 08 Jun 2011 09:41:46 GMT

Hello Miguel,

i try from your script but got an error message "The transport failed to connect to the server."

sub SendEmail(attachment)

Dim strMailTo

Dim ObjSendMail

Set objSelected = ActiveDocument.Fields("EMAILIDS").GetPossibleValues

if objSelected.Count = 0 then

msgbox ("No e-mail reciepient selected")

exit sub

else

varSubject = "Report"

varTextBody = "Please find report attached"

varAttachment = attachment

Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "172.16.10.63"

ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Update

ObjSendMail.AddAttachment varAttachment

For i = 0 to objSelected.Count-1

ObjSendMail.To = objSelected.item(i).Text

ObjSendMail.Subject = varSubject

ObjSendMail.From = "admin@qlikview.co.id"

ObjSendMail.TextBody = varTextBody

ObjSendMail.Send

Set ObjSendMail = Nothing

end if

end sub

this's my code for email exchange..

Re: Email sending not working

Miguel_Angel_Baeyens — Wed, 08 Jun 2011 10:27:51 GMT

Hello Mario,

If you take a look at your configuration fields, you are only using three (sendusing, smtpserver and smtpserverport). In my example code above (that is the one I'm using for testing) there are few more, and along them are the user logged into the smtp server (sendusername, sendpassword), what it seems is one of the issues you are having.

Use them in your code with yoour configuration and try again.

Hope that helps.

Miguel Angel Baeyens

BI Consultant

Comex Grupo Ibérica

Re: Email sending not working

Tue, 06 Dec 2011 07:09:20 GMT

Hello Miguel,

i am getting the same msg "The transport failed to connect to the server."

i am using exactly same code what you have used in your correct answer.

thanks

Harleen

Re: Email sending not working

Alexander_Thor — Tue, 06 Dec 2011 08:21:59 GMT

Usually refers to an network error. Reyling allowed on the smtpserver? Try with IP-adress instead of DNS name. Make sure it's the correct port for the smtp server.

Please note that you are creating a CDO-object so you need to have collaboration data objects installed on the machine running the macro. I'm not 100% sure on this but I believe MS stopped shipping CDO since Outlook 2007 so you would need to manually install it.

Re: Email sending not working

Wed, 08 Feb 2012 09:35:29 GMT

Hi there,

I tried following script. But all the time I am getting error "ActiveX component can't create object: 'CDO.Message' ".

Can anybody please tell me URGENTLY what is going wrong ??

Sub SendGMail() ' Object creation 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") = "smtp.gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 msgConf.Fields.Update ' Email objMsg.To = "user@gmail.com" objMsg.From = "fromuser@domain.com" objMsg.Subject = "Test send with Gmail account" objMsg.HTMLBody = "HTML/Plain text message." objMsg.Sender = "Mr. Name" Set objMsg.Configuration = msgConf ' Send objMsg.Send ' Clear Set objMsg = nothing Set msgConf = nothing End Sub

Email sending not working

eliran — Wed, 08 Feb 2012 09:41:03 GMT

Try this command to register the CDO ActiveX

regsvr32 "c:\windows\system32\cdosys.dll"

from a command prompt "run as administrator" (i.e. elevated).

Re: Email sending not working

Miguel_Angel_Baeyens — Thu, 09 Feb 2012 08:39:33 GMT

Hi,

Apart from that, did you set your module security to Allow System Access?

Hope that helps.

Miguel

Email sending not working

Tue, 15 May 2012 09:01:27 GMT

Hi,

I'm trying to send email from an address in the domain of my company to an outside address (in another domain but also on address like gmail or yahoo...). I tried your solution (and many others !) but I haven't find the good solution.

(The same macro works well to send email in the same domain and from a GMail account to other address)

Does someone find the solution ?

Thank you,

Pauline

Email sending not working

Alexander_Thor — Tue, 15 May 2012 09:05:42 GMT

I'm guessing you are running into relay problems.

Usually you can debug it by open up a telnet promp and try to send the same e-mail, you will get some more detailed error information.

By default you aren't allow to relay e-mails of your exchange smtp server to outside domains so this is likely something you need to turn on.

Email sending not working

Wed, 23 May 2012 08:28:44 GMT

The code works perfectly. However, it is using schema.microsoft .... where my scenario is, the server has blocked internet access, besides sending the mail to exchange server (within the same domain). Is there any reference on macro, for sending mail using SMTP to exchange server? I have tested the SMTP mail through QMC, it works though.

Re: Email sending not working

Mon, 10 Sep 2012 08:53:14 GMT

I sent from gmail domain to hotmail domain.

It's working!!

Thank you for your code!!!!

Re: Email sending not working

Wed, 05 Dec 2012 20:27:57 GMT

hello everyone...Code is working fine....But when we are sending to users from domains......how do we know there passwords....

Re: Email sending not working

Wed, 12 Dec 2012 22:27:55 GMT

I'm having some of the same issues.. Can someone please attach a .qvw example that I can open to see how to set this up? Thanks in advance.