Jump to content


cris_gavioli

Member Since 31/05/2007
Offline Last Active 30/11/2007, 16:09
-----

Topics I've Started

Email Cópia Oculta

30/11/2007, 15:52

Olá Pessoal!

Preciso de uma ajuda para saber como envia email cópia oculta através do VB com MAPI(Outlook)

Tenho o seguinte código que já esta enviando corretamente o email, mas não está como cópia oculta:

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = email
MAPIMessages1.MsgSubject = txtAss.Text
MAPIMessages1.MsgNoteText = TxtCorp.Text

'anexa no final da mensagem
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
'define o tipo de dados do anexo
MAPIMessages1.AttachmentType = mapData
'da um nome ao anexo; 'define o caminho e nome do arquivo a anexar
MAPIMessages1.AttachmentName = Anexo
MAPIMessages1.AttachmentPathName = txtAnexo.Text

'envia o arquivo
MAPISession1.SignOff

On Error GoTo rotina
MAPIMessages1.Send True

rotina:
If Err.Number <> 0 Then ' User cancelled
MsgBox "Você cancelou o envio de e-mail!"
On Error GoTo 0
Exit Sub
End If

Barão = MsgBox("Seu email foi enviado!", 48)

Agradeço a qlqr ajuda.

Email Cópia Oculta

30/11/2007, 15:49

Olá Pessoal!

Preciso de uma ajuda para saber como envia email cópia oculta através do VB com MAPI(Outlook)

Tenho o seguinte código que já esta enviando corretamente o email, mas não está como cópia oculta:

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = email
MAPIMessages1.MsgSubject = txtAss.Text
MAPIMessages1.MsgNoteText = TxtCorp.Text

'anexa no final da mensagem
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
'define o tipo de dados do anexo
MAPIMessages1.AttachmentType = mapData
'da um nome ao anexo; 'define o caminho e nome do arquivo a anexar
MAPIMessages1.AttachmentName = Anexo
MAPIMessages1.AttachmentPathName = txtAnexo.Text

'envia o arquivo
MAPISession1.SignOff

On Error GoTo rotina
MAPIMessages1.Send True

rotina:
If Err.Number <> 0 Then ' User cancelled
MsgBox "Você cancelou o envio de e-mail!"
On Error GoTo 0
Exit Sub
End If

Barão = MsgBox("Seu email foi enviado!", 48)

Agradeço a qlqr ajuda.

Upload Para Ftp

13/11/2007, 16:21

Sei que tem diversos artigos falando disso, mas nenhum deu certo para mim áté agora.

Seguinte tenho o input de foto:

<input name="foto1" type="file" size="62" />
<input type="hidden" name="MAX_FILE_SIZE" value="3000000" />

Preciso que essa foto seja salva no ftp.

Como faço isso?? é com move_upload mesmo??

Alguém pode me ajudar??

Grata.

Problema: Document.form.campo é Nulo

06/11/2007, 13:41

Olá pessoal!

Estou com o seguinte Problema:

Tenho o input:

<input name="anual1" size="7" onblur="VerificaData(this.value,this.name)">

E a função:

function VerificaData(digData,campo)
{
var data = digData;
var tam = data.length;
var camp = campo;
.
.
.
document.form2.camp.focus();
}

O problema é com o nome do input que não está pegando.... Alguém sabe pq??

Grata...

Concatenar Variáveis Php

04/11/2007, 15:46

Olá pessoaL!

Estou com um problema na seguinte sintaxe:

$"nomcao$id1" = $_POST["nomcao.$id1"];

Preciso que a variável seja nomcao mais o valor da variável $id1, ou seja, se $id1=1, variável = $nomcao1

Já tentei de todas as formas possiveis, mas não consegui.

Se alguém tiver alguma idéia me fale.

Grata.

IPB Skin By Virteq