Outlook et VFP message d'alerte .....

Question

(re) bonjour,

C'est + un probleme sur outlook que sur Fox, mais bon je pose quand m&#234;me la question quelque fois que quelqu'un aurait d&#233;ja &#233;t&#233; confront&#233; au probl&#232;me .....
J'ai lu les contributions de Mike sur atoufox.org en ce qui concerne l'envoi de mail par programmation fox, &#231;a marche tr&#232;s bien voici le code: 

#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2


oOutLookObject = CreateObject('Outlook.Application')


oEmailItem = oOutLookObject.CreateItem(MAILITEM)


 WITH oEmailItem
   *.Recipients.Add([mailto:'moe@3stooges.com' 'moe@3stooges.com']) && uses the Recipients collection
     .To="[mailto:destinataire@toto.fr destinataire@toto.fr]" 
   .Subject = 'Test TM'
   .Importance = IMPORTANCEHIGH 
   .Body = 'TEST Connection This is easy!'
   *.Attachments.Add ("si on a un fichier &#224; attacher.txt")
   .Send
 ENDWITH


RELEASE oEmailItem


RELEASE oOutLookObject

voila quand je lance mon prg.,  outlook me g&#233;n&#233;re une boite d'alerte o&#249; il y a &#233;crit ceci:
! un programme tente d'envoyer automatiquement du courrier &#233;lectronique en votre nom. L'autorisez vous &#224; poursuivre ?
Si cette action est inatendue, il se peut qu'il s'agisse d'un virus: dans ce cas choisissez Non.
j'ai une barre de d&#233;filement, et je dois attendre 5 secondes avant de cliquer sur oui pour confirmer.

Le probl&#232;me est que si je veux envoyer 8 mails &#224; la suite je dois me taper la boite d'alerte 8 fois et reconfirmer ! 
J'ai &#233;t&#233; voir dans les options d'Outlook, mais je ne vois pas... Si qu'elqu'un peux m'&#233;clairer ?

Nico

ThierryPerretier · Answer

Pour des raisons de s&#233;curit&#233;, cet &#233;cran de confirmation n'est pas d&#233;sactivable dans Outlook.

Essayes ce petit utilitaire http://www.contextmagic.com/express-clickyes/

Sinon, utilises une autre m&#233;thode pour envoyer des messages.(connexion directe SMTP, par exemple)

rubix2 · Answer

Merci , J'ai test&#233; l'outil et &#231;a fonctionne bien, cependant, c'est vrai que j'aimerais avoir un truc un peu plus clean .Je cherche un petit bout de code pour envoyer un mail avec attachement. J'ai lu &#224; peu pr&#232;s toutes les contributions sur ce site et atoufox mais parfois des personnes postent des trucs super long o&#249; je ne comprends rien ! Enfin voil&#224; ce que j'ai trouv&#233;:

Le premier code utilise cdo &#231;a fonctionne pas sur mon poste ,je crois qu'il y a des dll ou autres trucs &#224; t&#233;l&#233;charger(est-ce que c'est payant ?)  pour que &#231;a fonctionne:

&& Comment envoyer un simple courriel.
oMSG = CREATEOBJECT("cdo.message")
oMSG.To = "[mailto:me@nowhere.com me@nowhere.com]"
oMSG.From = "me"
oMSG.Subject = "Hello Email"
oMSG.TextBody = "This is an easy way to create an email"
oMSG.Send()

Le deuxi&#232;me code utilise winsock,  je sais pas si sa fonctionne j'ai pas test&#233;, est-ce que dois juste changer l'adresse ip par mon SMTP vu que je bosse dans une entreprise, je pense que protocol &#224; 0 et remotePort &#224; 25 &#231; a doit &#234;tre bon:

#Define crlf Chr(13)+Chr(10)


oWinsock = Createobject("MSWinsock.Winsock.1")
oWinsock.Protocol = 0     && 0=TCP Protocol, 1=UDP
oWinsock.RemoteHost = '65.39.231.158'&&"mail.suntelecom.net"
oWinsock.RemotePort = 25 && smtp port.
oWinsock.Connect
=Inkey(.25)
oWinsock.senddata("Hello myself.com" + crlf) && You can change this string to anything else..
line1 = "mail from:" + Chr(32) + "[mailto:moi@somewhere.net moi@somewhere.net]" + crlf
line2 = "rcpt to:" + Chr(32) + "[mailto:you@hotmail.com you@hotmail.com]"+ crlf
line3 = "Date:" + Chr(32) + Dtoc(Date()) + crlf
line4 = "From:" + Chr(32) + "[mailto:moi@somewhere.net moi@somewhere.net]" + crlf
line5 = "To:" + Chr(32) + "[mailto:you@hotmail.com you@hotmail.com]" + crlf
line6 = "Subject:" + Chr(32) + "Test winsock mail" + crlf
line7 = "This is a test body of the message" + crlf
line9 = "X-Mailer: Mike's Test mail" + crlf
line8 = line4 + line3 + line9 + line5 + line6 + line7
oWinsock.senddata(line1)
=Inkey(.25)
oWinsock.senddata(line2)
=Inkey(.25)
oWinsock.senddata(line8 + "." + crlf)
=Inkey(.25)
oWinsock.senddata("quit")
=Inkey(.25)
oWinsock.Close()

Voil&#224; quelle m&#233;thode est la meilleure sachant que je cherche un bout de code simple et court ?, j'ai pas besoin de faire de test si une connexion existe, si internet est install&#233; etc ,etc ..... tant pis pour le plantage !

Nico

ThierryPerretier · Answer

J'ai une pr&#233;f&#233;rence pour l'utilisation de la classe Winsock de Francis.

http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000187
http://www.xfrx.fr/vfpwinsock/index.asp

L'avantage, c'est qu'il n'y a rien &#224; installer ou &#224; configurer sur le poste client.Il n'utilise pas le contr&#244;le ActiveX (MSWinsock.Winsock.1) mais directement une API Windows (ws2_32.dll). 
Il faut seulement avoir acc&#232;s &#224; un serveur SMTP.

Mike Gagnon · Answer

Rubix2 

Pour ce qui est de CDO, l'article que j'ai ecrit indique bien "À noter que le code assume que le service SMTP est actif (ou un serveur SMTP externe existe)." 

Tu as un service SMTP ou un serveur SMTP?

cs_survi · Answer

Tr&#232;s bon code


Bien expliqu&#233; et comment&#233;


De Nombreux exemple simple a comprendre


Cependant je rencontre de nombreux probl&#232;mes



 


1&#176;PB


Dans l&#146; ObjectVfp_WinSock_Send_Mail


Fonction Send


La ligne de code this.data = this.data + "Date: " + This.TtoC822(Datetime(),0) + CRLF


La Fonction TtoC822  pose un pb de parametres


Message ErrNo PARAMETER statements Found



 


2&#176; PB
Dans 


FUNCTION Connect()


LOCAL cBuffer, cPort, cHost, lResult


THIS.RemoteHostIP = THIS.GetIP(this.RemoteHost)


IF EMPTY(THIS.RemoteHostIP)


RETURN .F.


ENDIF


THIS.SocketHandle = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)


if THIS.SocketHandle = SOCKET_ERROR


RETURN .F.


ENDIF


THIS.State = 6


cPort = THIS.num2word(htons(this.RemotePort))


nHost = inet_addr(THIS.RemoteHostIP)


cHost = THIS.num2dword(nHost)


cBuffer = THIS.num2word(AF_INET) + cPort + cHost + Repli(Chr(0),8)


lResult = (ws_connect(THIS.SocketHandle, @cBuffer, Len(cBuffer))=0)


IF lResult


THIS.State = 7


ELSE


THIS.State = 0


ENDIF


RETURN lResult


 j'ai 


THIS.RemoteHostIPest renseigni&#233;


THIS.SocketHandle est renseigni&#233;


cPortreste toujours vide


lResult reste toujours .F. ce qui me g&#233;n&#232;re le message &#171; Impossible de se connecter au serveur de Mail &#187;



 


Ma question est donc la suivantes


Le pb 2 est-il la cons&#233;quence du pb1?


Comment r&#233;soudre cela ?

D'avance merci

Outlook et VFP message d'alerte .....

5 réponses

Votre réponse

Discussions similaires