[Resolvido] pegar nome da imagem para enviar por email

[weslei.conexao 0]

Boa noite pessoal, é o seguinte no meu banco tenho gravado no caminho da imagem no servidor assim : "http://foto/cod520.jpg" , ai preciso pegar o nome da imagem no caso cod520.jpg, pra depois poder enviar uma imagem dessa foto no email usando aspemail, o envio de email ta ok !! o problema é pegar o nome da foto.. alguém pode dar uma força aí ??? valeu...

[xanburzum 169]

olá amigo...

dá uma procurada no forum que existem algumas funções para isso...

[weslei.conexao 0]

valeu xanburzum, mas andei procurando aqui mesmo no forum, encontri umas funções que se usa junto com o upload de imagem ... no meu caso não quero fazer upload, pois a imagem já está no servidor que apenas pegar o nome da imagem pra poder enviar, aqui oh ..um pedço do meu código de envio ..[ quote]

' Assunto do E-mail

Mailer.Subject = Request.form("cboCombo")

' Campo da mensagem

body = body & "<br>"

'Abaixo a tag do cabeçalho da tabela

body = body & "<table width='650' border='2'bordercolor='#A60000' align='left' cellpadding='2' cellspacing='3'>"

body = body & "<tr>" & vbCrLf

body=body & "<img src='www.meusite.com.br/img/foto/"&nomeDaFoto & vbCrlf

body = body & "<td><font size='1' face='Verdana'><b>Nome..........:</b> " & NomeDig&"</font></tr>" & vbCrLf

body = body & "<tr>" & vbCrLf

body = body & "<td><font size='1' face='Verdana'><b>Email..........:</b> " &EmailDig&"</font></td></tr>" & vbCrLf

body = body & "<tr>" & vbCrLf

body = body & "<td><font size='1' face='Verdana'><b>Telefone......:</b> " &TelDig&"</font></td></tr>" & vbCrLf

body = body & "<tr>" & vbCrLf

body = body & "<td><font size='1' face='Verdana'><b>Mensagem....:</b> " &MsgDig&"</font></td></tr>" & "<br><br>"

 

 

Mailer.bodyText = body & vbCrLf

 

 

um abraço!

[xanburzum 169]

você pode pegar o nome do arquivo assim:

 

usando FSO você faz assim

<%
Dim fso
dim Pasta
dim Arquivo
dim localFoto

localFoto = "\foto" 

set fso = CreateObject("Scripting.FileSystemObject")
set Pasta = fso.GetFolder(server.MapPath(localFoto))

For each Arquivo in Pasta.files
Response.Write(arquivo.name)
Next
%>

 

e abaixo um ótima função para isso

Public function GetFilename(ByVal strGetPath)
	Dim nPos, strFilename
	Dim strDir
	strFilename = ""
		strGetPath = cstr(strGetPath)
		if Not len(strGetPath) = 0 Then
			nPos = InStrRev(strGetPath, "\", Len(strGetPath))
			if nPos > 0 Then
				strFilename = Right(strGetPath, Len(strGetPath) - nPos)
				'Response.Write strFilename
			End if
			nPos = InstrRev(strGetPath, "\", Len(strGetPath) - nPos)
			if nPos > 0 Then
				strDir = Right(strGetPath, Len(strGetPath) - nPos)
			Else
				strDir = ""
			End if 
		End if
		GetFilename = strFilename
	End function

[weslei.conexao 0]

Valeu cara funcionou certinho ...