ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: VFPWINSOCK encore ..   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mer. 23 décembre 2020, 19h45

janflorijn
Pays-Bas Pays-Bas

atoutfox.public.association

Re: VFPWINSOCK encore ..

Bonjour,

Ici une solution email:


SELECT mllst1_dlnmrs_pst
GO TOP
CALCULATE COUNT() TO nrecords
antwoord=Messagebox("Weet u zeker dat u ook de mail wilt versturen?",4)
If antwoord=6
  loMessages = Createobject("CDO.Message")
  loConf = Createobject("CDO.Configuration")
  Flds = loConf.Fields
  With Flds
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) = 'ml.zt.nl'
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 5
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) = 1
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername";) = "fl"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword";) = "=b9"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl";) = .T.
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";) = 60
  .Update
  Endwith
  With loMessages
  .Configuration = loConf
  .From = "Inwedstrijden<in@z.nl>"
  Endwith
  With loMessages
  .Subject = "Controle mail en telefoon"
  .HTMLBody="<HTML><BODY><font size="+Chr(34)+"3"+Chr(34)+"><font face="+Chr(34)+"Times New Roman"+Chr(34)
  STORE 0 TO _MLINE
  IF MEMLINES(tbl_messages.contr_mail_telf)> 0
    aantal_regels= MEMLINES(tbl_messages.contr_mail_telf)
    FOR teller= 1 TO aantal_regels
      .HTMLBody=.HTMLBody+ALLTRIM(MLINE(tbl_messages.contr_mail_telf,1,_MLINE ))+"<br>"
    NEXT teller
  ENDIF
  SELECT mllst1_dlnmrs_pst
  GO TOP
  teller=0
  IF test_omgeving=1
    .to="f3@z.nl"
    .Send()
    .to="ffl@z1e.nl"
    .Send()
    .to="in1f@z3e.nl"
    .Send()
  ELSE
    SCAN ALL
      .HTMLBody=.HTMLBody+"<br>"+"<hr width="+Chr(34)+"100%"+Chr(34)+" align="+Chr(34)+"left"+Chr(34)+" size="+Chr(34)+"10"+Chr(34)+" noshade>"
      .HTMLBody=.HTMLBody+"<b>De bij ons bekende gegevens</b><br>"
      .HTMLBody=.HTMLBody+"E-mail: <b>"+ALLTRIM(mllst1_dlnmrs_pst.eml)+"</b><br>"
      .HTMLBody=.HTMLBody+"Telefoon: <b>"+ALLTRIM(mllst1_dlnmrs_pst.tlfn)+"</b><br></BODY></HTML>"
      .to=Alltrim(mllst1_dlnmrs_pst.eml)
      .Send()
    ENDSCAN
  ENDIF
    Endwith
    loMessage = .Null.
    loConf = .Null.
    Release loMessage,loConf
    Messagebox("Het bericht is verzonden.")
  ELSE
    loMessage = .Null.
    loConf = .Null.
    Release loMessage,loConf
    Messagebox("Het bericht niet verzonden.")
  ENDIF
  WAIT CLEAR


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019772
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3