• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Bmw1000c

[VB6] Ler ficheiro + mandar email via SMTP

8 mensagens neste tópico

Boas noites, deparo-me neste momento com um problema no meu trabalho de TIC, em que lhe intitulei como Spam-o-maker.

1º Ao iniciar o programa, quero que ele vá ler um ficheiro txt(situado num alojamento tipo pwp.netcabo.pt/.../blabla.txt) e consoante se ele conseguir aceder, ou não, ao ficheiro, aparecer icon X ou o Y ou o Z na form (em que X é quando conseguiu ligar, Y quando tá a tentar ligar e Z quando não conseguiu ligar)

spamomaker.jpg

2º Quero que ele mande o que está na Textbox, via SMTP, para um mail, usando um servidor smtp (como por exemplo a sapo), mas com o username e pass escondido, o que não acontece em:

smtpdemo.gif

Espero ter sido esclarecedor, espero respostas breves e apelativas.

[[]]]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

A questão do  icon é relativamente fácil. Vê este código fonte (não é de minha autoria):

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long


Private Sub Command1_Click()

' Note that this file is 2M, so you might want to try with something simpler
Dim errcode As Long
Dim url As String
Dim localFileName As String

url = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)

If errcode = 0 Then
    MsgBox "Download ok"
Else
    MsgBox "Error while downloading"
End If
End Sub

Agora é só alterares à tua maneira. Se precisares de ajuda é só dizeres :P

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tks NuGun. o essencial que alterei nesse code foi o url= e o localfilename.

Agora, como ja tinha dito, sou nabiço em vb, e nao encontrei nada para substituir depis do

If errcode = 0 Then 

Vou continuar a procura, mas agradecia ajuda  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas, tou neste momento preso aqui:

If errcode = 0 Then
     Form3.Picture2.Image = System.drawing.bitmap.fromfile(my.application.info.directorypath & "\icons\green.bmp")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lol, o problema é que este codigo ta em vb2005 express... e eu uso o vb6, a maneira de declarar a imagem nao é a mesma :<

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agora, como ja tinha dito, sou nabiço em vb, e nao encontrei nada para substituir depis do

If errcode = 0 Then 

Vou continuar a procura, mas agradecia ajuda  :wallbash:

Mas o que é que queres alterar ai?

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ops, eu aí nao quer oalterar nada, eu quero é no     MsgBox "Download ok"

edit: consegui com o code    Form3.Picture2.Picture = LoadPicture(App.Path & "\green.jpg")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

hhhmmm, pensava que estavas com dificuldade nisso. Então já esta o problema resolvido  :P

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora