envoi PDF en VBA Résolu

Question

Bonjour, 
voila mon souci. par une macro, je convertis un dossier Excel en doc PDF, jusque la ca va.
mais je n'arrive pas a l'envoyer par Mail.
j'utilisais ca pour envoyer le .xxl
_______________________________________________________________
Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub
_______________________________________________________________

mais ca ne marche pas avec le .pdf
et toutes les propositions que j'ai pu trouver sur les forums n'ont pas fonctionné ou alors c'est surement que je n'ai pas su les adapter.
a savoir que la plupart de mes macros, je les fais par l'intermediaire de l'enregistreur.
par avance merci pour votre aide



Configuration: Windows 7 / Internet Explorer 10.0

yannpl7 · Answer

Ci dessous une macro que je me suis servi dans le passé

' configuration SMTP pour envoi de mail
Public Const MAIL_SENDUSING = 2
Public Const MAIL_AUTHENTICATE = 1
Public Const MAIL_CPT_SENDUSR = "expediteur@gmail.com"
Public Const MAIL_CPT_SENDPASS = "motdepasseexpéditeur"
Public Const MAIL_FROM = "expediteur@gmail.com"
Public Const MAIL_SMTP_SERVER = "smtp.gmail.com"
Public Const MAIL_SMTP_SERVERPORT = 465
 '''""""""""""""""""""""""""""""""""""""""""""""""""""'''
 '
 ' FONCTION : envoyer un mail par SMTP
 ' pstrTo : 1 ou plusieurs destinataire(s)
 ' pstrSubject : objet du mail
 ' pvarAttachFile : 1 ou plusieurs fichiers joints - string ou array de string
 '
 '''""""""""""""""""""""""""""""""""""""""""""""""""""'''
 Public Function SMTPSendMail(pstrTo As String, pstrSubject As String, Optional pvarAttachFile As Variant) As Boolean
 On Error GoTo SMTPSendMail_Err

Dim i As Long
 Dim objEmail As New CDO.Message
 'Set objEmail = CreateObject("CDO.Message")

objEmail.From = MAIL_FROM
 objEmail.To = pstrTo
 objEmail.Subject = pstrSubject

' Aucun corps de message, uniquement la pièce jointe
 ' laisser un TextBody avec chaine vide, sinon le mail peut planter (pièce jointe incomplète)
    objEmail.TextBody = "By yannpl7"

' Ajout de la pièce jointe, 1 ou plusieurs fichiers
 If Not IsMissing(pvarAttachFile) Then
 If IsArray(pvarAttachFile) Then
 ' parcourrir le tableau
 For i = LBound(pvarAttachFile) To UBound(pvarAttachFile)
 objEmail.AddAttachment pvarAttachFile(i)
 Next i
 Else
 
 objEmail.AddAttachment pvarAttachFile

End If
 End If

With objEmail.Configuration.Fields
 .Item(CdoConfiguration.cdoSendUsingMethod) = MAIL_SENDUSING
 .Item(CdoConfiguration.cdoSMTPAuthenticate) = MAIL_AUTHENTICATE
 .Item(CdoConfiguration.cdoSendUserName) = MAIL_CPT_SENDUSR
 .Item(CdoConfiguration.cdoSendPassword) = MAIL_CPT_SENDPASS
 .Item(CdoConfiguration.cdoSMTPServer) = MAIL_SMTP_SERVER
 .Item(CdoConfiguration.cdoSMTPServerPort) = MAIL_SMTP_SERVERPORT
 .Item("[http://schemas.microsoft.com/cdo/configuration/smtpusessl]") = "true"
 .Update
 End With
 objEmail.Send

SMTPSendMail = True
 Exit Function
SMTPSendMail_Err:
 MsgBox Err.Description

End Function

Sub envoiemail()
Dim result As Variant
Dim file As Variant
file = "C:\repertoiredufichier\" & "Nomdufichier" &  & ".PDF"

result = SMTPSendMail("destinataire@desti.fr", "Titre", file)

End Sub


 
 
celui qui détient le savoir détient le pouvoir

joseB45 · Answer

ok merci yannpl7
je vais essayer d'adapter ca a mon cas
petites questions =
//Public Const MAIL_CPT_SENDPASS = "motdepasseexpéditeur"// est ce obligatoire ?
//result = SMTPSendMail("destinataire@desti.fr", "Titre", file)// puis je laisser le champs du destinataire vide ?

yannpl7 · Answer

Si tu veux envoyé un email il faut obligatoirement renseigner le mot de passe du compte de l'expéditeur et une adresse d'un destinataire.

attention petite correction

file = "C:\repertoiredufichier\" & "Nomdufichier" &  ".PDF"

Merci à pijaku pour l'info
celui qui détient le savoir détient le pouvoir

joseB45 · Answer

je me retrouve avec un message d'alerte a l'execution du code

//attribut incorrect dans une procédure sub ou function//

et j'ai le premier "Public const" surligné en bleu

yannpl7 · Answer

Les Public Const doivent se trouvées tout au dessus du code et non dans un SUB. Enregistre ton fichier ferme le et relance le

joseB45 · Answer

ok cette alerte a disparu, j'avais mis tout ton code entre sub et end sub ^^

mais comme j'y vais au pas a pas vu que je suis nul en vba j'ai une autre alerte

//erreur compilation : type defini par utilisateur non defini//

 objEmail As New CDO.Message surligné en bleu

je pense que j'ai du oublié de changer quelque chose

yannpl7 · Answer

Non c'est moi qui est oublié quelque chose

Dans Ton visual Basic tu va dans  Outils  -> Références
et tu coche Microsoft CDO for Windows 2000 Library puis OK

joseB45 · Answer

grand merci yannpl7
ca fonctionne nickel !

tilo75 je ne peux pas t'aider, mais je suis sur qu'un cador vba viendra a ton aide

a bientot

Envoi PDF en VBA

8 réponses

Discussions similaires

Newsletters