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.

ven. 25 décembre 2020, 10h39

janflorijn
Pays-Bas Pays-Bas

atoutfox.public.association

Re: VFPWINSOCK encore ..

Bonjour,

J'ai une solution pour envoyer des e-mails en MAPI32.
LOCAL oSess, oMsg,lcCurdir,lnSessionID
lcCurdir=SYS(5)+CURDIR()
oSess=CREATEOBJECT("MSMAPI.MAPISession")
IF VARTYPE(oSess)="O"
  oSess.DownloadMail=.f.
  oSess.UserName="username"
  oSess.Password="password"
  oSess.SignOn()
  lnSessionID=oSess.SessionID
  IF lnSessionID>0
    oMsg=CREATEOBJECT("MSMAPI.MAPIMessages")
    IF VARTYPE(oMsg)="O"
      oMsg.SessionID=lnSessionID
      oMsg.compose()
      oMsg.AddressResolveUI = .f.
      oMsg.MsgSubject = "Subject"
      oMsg.MsgNoteText = "This is so easy they say!"
      oMsg.RecipAddress = "info@test.nl"
      oMsg.RecipDisplayName = "info@test.nl"
      oMsg.ResolveName()
      oMsg.RecipDisplayName = "test"
      oMsg.Send()
    ENDIF
    oSess.SignOff()
  ENDIF
ENDIF
oSes=null
oMsg=null
SET DEFAULT TO (lcCurdir)
RETURN


Si cela ne fonctionne pas:

Exécuter le projet à partir d'échantillons, les solutions Activex envoient du courrier.
RUN / N Regsvr32 / s MSMAPI32.ocx.


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019778
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