Olá pessoal , estou utilizando o exemplo emailCdo para envio de email até ai tudo bem funcionou bem só que qualquer tipo de anexo que envio ou chega corrompido ou sem nada no arquivo, alguém sabe o que pode está ocorrendo.
2 participantes
Exemplo EmailCDO
hcastro- Intermediário
- Respeito às regras :
Localização :
Mensagens : 146
Registrado : 09/11/2009
- Mensagem nº1
Exemplo EmailCDO
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº2
Re: Exemplo EmailCDO
Olá! Poderíamos ter uma ideia se você postasse o código utilizado. Assim sem nenhuma visualização do que está fazendo fica difícil. Mas já tentou utilizar outro provedor como o Google caso esteja usando outro?
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
hcastro- Intermediário
- Respeito às regras :
Localização :
Mensagens : 146
Registrado : 09/11/2009
- Mensagem nº3
Re: Exemplo EmailCDO
OK, vou postar o código
hcastro- Intermediário
- Respeito às regras :
Localização :
Mensagens : 146
Registrado : 09/11/2009
- Mensagem nº4
Re: Exemplo EmailCDO
Desculpa a demora pois tive alguns problemas de conexão.
O código utilizado para anexar o arquivo é esse:
On Error GoTo TErro
Dim fDialog As Office.FileDialog, varFile As Variant, varPath As Variant, varPath2 As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.InitialFileName = CurrentProject.Path
.AllowMultiSelect = True
.Title = "Anexar arquivo"
.Filters.Clear
.Filters.Add "Imagens", "*.bmp;*.gif;*.ico;*.jpg;*.jpeg;*.png;*.tiff"
.Filters.Add "Excel", "*.xls;*.xlsx"
.Filters.Add "PowerPoint", "*.ppt;*.pptx;*.pps;*.ppsx"
.Filters.Add "Word", "*.doc;*.docx"
.Filters.Add "Todos os arquivos", "*.*"
.ButtonName = "Abrir arquivo(s)"
If .Show = True Then
For Each varFile In .SelectedItems
varPath = Split(varFile, "\")
For i = 0 To UBound(varPath)
varPath2 = varPath(i)
Next i
Me.lstAnexos.AddItem varFile & ";" & varPath2
Next
Else
Exit Sub
End If
End With
'O bloco abaixo ajusta a altura da listbox de acordo o número de linhas.
' Caso tenha menos de 15 anexos, a list se ajusta ao número de linhas
' Caso tenha de 15 a mais, fica com altura fixa equivalente à altura de 14 linhas.
If Me.lstAnexos.ListCount > 14 Then
Me.lstAnexos.Height = 275 * 14
ElseIf Me.lstAnexos.ListCount <= 14 Then
Me.lstAnexos.Height = Me.lstAnexos.ListCount * 275
Else
End If
' O bloco abaixo torna a list e controles associados visíveis quando ouverem anexos e
' os torna invisíveis quando não ouver anda para exibir.
If Me.lstAnexos.ListCount > 0 Then
Me.lstAnexos.Visible = True
Me.lblPreVis.Visible = True
Me.ctlImagem.Visible = True
Else
Me.lstAnexos.Visible = False
Me.lblPreVis.Visible = False
Me.ctlImagem.Visible = False
End If
' O bloco abaixo faz um tratamento de erro
TErro:
If Err.Number = 5 Then
DoCmd.CancelEvent
Resume Next
End If
O código utilizado para anexar o arquivo é esse:
On Error GoTo TErro
Dim fDialog As Office.FileDialog, varFile As Variant, varPath As Variant, varPath2 As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.InitialFileName = CurrentProject.Path
.AllowMultiSelect = True
.Title = "Anexar arquivo"
.Filters.Clear
.Filters.Add "Imagens", "*.bmp;*.gif;*.ico;*.jpg;*.jpeg;*.png;*.tiff"
.Filters.Add "Excel", "*.xls;*.xlsx"
.Filters.Add "PowerPoint", "*.ppt;*.pptx;*.pps;*.ppsx"
.Filters.Add "Word", "*.doc;*.docx"
.Filters.Add "Todos os arquivos", "*.*"
.ButtonName = "Abrir arquivo(s)"
If .Show = True Then
For Each varFile In .SelectedItems
varPath = Split(varFile, "\")
For i = 0 To UBound(varPath)
varPath2 = varPath(i)
Next i
Me.lstAnexos.AddItem varFile & ";" & varPath2
Next
Else
Exit Sub
End If
End With
'O bloco abaixo ajusta a altura da listbox de acordo o número de linhas.
' Caso tenha menos de 15 anexos, a list se ajusta ao número de linhas
' Caso tenha de 15 a mais, fica com altura fixa equivalente à altura de 14 linhas.
If Me.lstAnexos.ListCount > 14 Then
Me.lstAnexos.Height = 275 * 14
ElseIf Me.lstAnexos.ListCount <= 14 Then
Me.lstAnexos.Height = Me.lstAnexos.ListCount * 275
Else
End If
' O bloco abaixo torna a list e controles associados visíveis quando ouverem anexos e
' os torna invisíveis quando não ouver anda para exibir.
If Me.lstAnexos.ListCount > 0 Then
Me.lstAnexos.Visible = True
Me.lblPreVis.Visible = True
Me.ctlImagem.Visible = True
Else
Me.lstAnexos.Visible = False
Me.lblPreVis.Visible = False
Me.ctlImagem.Visible = False
End If
' O bloco abaixo faz um tratamento de erro
TErro:
If Err.Number = 5 Then
DoCmd.CancelEvent
Resume Next
End If
hcastro- Intermediário
- Respeito às regras :
Localização :
Mensagens : 146
Registrado : 09/11/2009
- Mensagem nº5
Re: Exemplo EmailCDO
estou usando o gmail para enviar os email
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Mensagem nº6
Re: Exemplo EmailCDO
Dê uma olhada nesse artigo e veja se as dicas ajudam a sanar a questão.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
|
|