Search Forum Home   Visual FoxPro  Clase - VCX si PRG  transmitere e-m...  transmitere e-mail din program    3/6/2010 9:23:12 AM aurelian ungureanu 223 posts transmitere e-mail din program  (N/A) Salut tuturor, Am luat de pe www.sweetpotatosoftware.com urmatorul cod de transmitere mail-uri via outlook la care am aplicat modificarile necesare. Doua lucruri nu am reusit sa le rezolv si la care primind mesaj de eroare le-am suspendat: 1 - mesajul de eoare in cazul cand nu se face transmiterea. Aceasta chestie sa spunem ca e ami putin importanta avand in vedere ca mai toti utilizatorii au conexiune permanenta la internet si 2 - atasamentul - trebuie sa-l fac eu . Am verificat calea de unde trebuie sa faca atasamentul, este corecta . M-am gandit ca s-ar putea sa fie problema de versiune VFp, eu lucrez in versiunea 7 . In rest codul functioneaza perfect,deschide outlook-ul si face expedierea si destinatarului principal si celorlalti. As putea sa nu fiu mofturos ca nu face atasamentul dar ma gandeam ca e mai comod asa . Ma poate ajuta cinva? Va rog. procedura transmitere e-mail #DEFINE olImportanceLow 0 #DEFINE olImportanceNormal 1 #DEFINE olImportanceHigh 2 DIMENSION aryAttach(2) && sau poate cate se vor aryAttach(1) = "C:\attachment1.txt" && schimba cu un fisier existent in computer aryAttach(2) = "C:\attachment2.zip" && schimba cu un fisier existent in computer LOCAL lcTo, lcSubject, lcBody, lcCC, lcBCC, llHTMLFormat, llOpenEmail, lcErrReturn lcTo = "cineva@deundeva.ro" && destinatar mail lcSubject = ' ceva ' llHTMLFormat = .T. lcBody = 'Cu stima,' lcCC = " " && o alta adresa de mail lcBCC = " " && o alta adresa de mail *!* trimitere automata llOpenEmail to .F. llOpenEmail = .t. && Fie cã mail-ul este deschis în Outlook sau nu SendViaOutlook(@lcErrReturn, lcTo, lcSubject, lcBody, @aryAttach, lcCC, lcBCC, llHTMLFormat, olImportanceHigh, llOpenEmail) IF EMPTY(lcErrReturn) MESSAGEBOX("' Mail-ul cu subiectul " + lcSubject + " " + IIF(llOpenEmail, " a fost transmis cu succes","nu a fost transmis") + " . ", 64, "Trimitere mail via Outlook") ELSE MESSAGEBOX("' Mail-ul cu subiectul " + lcSubject + "' nu a reusit sã fie trimis . Motiv:" + CHR(13) + lcErrReturn, 64, "Trimitere email via Outlook") ENDIF ******************************************* PROCEDURE SendViaOutlook(tcReturn, tcTo, tcSubject, tcBody, taFiles, tcCC, tcBCC, tlHTMLFormat, tnImportance, tlOpenEmail) ******************************************* LOCAL loOutlook, loItem, lnCountAttachments, loMapi loOutlook = CREATEOBJECT("outlook.application") loMapi = loOutLook.GetNameSpace("MAPI") loMapi.Logon() loItem = loOutlook.CreateItem(0) WITH loItem .Subject = tcSubject .TO = tcTo IF tlHTMLFormat .HTMLBody = tcBody ELSE .Body = tcBody ENDIF IF TYPE("tcCC") = "C" .CC = tcCC ENDIF IF TYPE("tcBCC") = "C" .BCC = tcBCC ENDIF IF TYPE("tnImportance") != "N" tnImportance = 1 && normal importance ENDIF .Importance = tnImportance && aici trebuie sa faca atasamentul dar da eroare && IF TYPE("tafiles",1) = "A" && FOR lnCountAttachments = 1 TO ALEN(taFiles) && .Attachments.ADD(taFiles(lnCountAttachments)) && ENDFOR && ENDIF IF tlOpenEmail .DISPLAY() ELSE .SEND() ENDIF ENDWITH && aici iar da eroare defineste mesajul de eroare din ce cauza nu a fost posibila trimiterea && CATCH TO loError && tcReturn = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ; && [LineNo: ] + STR(loError.LINENO) + CHR(13) + ; && [Message: ] + loError.MESSAGE + CHR(13) + ; && [Procedure: ] + loError.PROCEDURE + CHR(13) + ; && [Details: ] + loError.DETAILS + CHR(13) + ; && [StackLevel: ] + STR(loError.STACKLEVEL) + CHR(13) + ; && [LineContents: ] + loError.LINECONTENTS && FINALLY RELEASE oOutlook, oItem STORE .NULL. TO oOutlook, oItem ENDPROC  3/7/2010 2:20:44 PM aurelian ungureanu 223 posts Re: transmitere e-mail din program  (N/A) Am rezolvat atasamentul. Problema consta in faptul de a cauta daca exista atasament .  Page 1 of 1   Visual FoxPro  Clase - VCX si PRG  transmitere e-m... Flat View Tree View Oldest To Newest Newest To Oldest