Pdf par mail

[greg06500]

Bonjour à tous,

Voila j'utilise un code qui permet d'enregistrer en PDF des commandes.

Je voudrais aussi les envoyer par mail automatiquement sans passer par outlook ni quoi que ce soit.

Quelqu'un aurait il une idée ?

Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
    
    If IsEmpty(Feuil12.UsedRange) Then Exit Sub
    sNomPDF = Feuil12.Range("C17")
    sCheminPDF = "C:\Documents and settings\GREG\Bureau\COMMANDES\"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    Feuil12.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    
    JobPDF.cClose
    Set JobPDF = Nothing
MsgBox "Commande éditée", vbInformation, "COMMANDE"

End If
Next
End With

Merci d'avance

GREG

 

[fred65200]

Re : Pdf par mail

Bonjour
suis ce lien

ENVOI AUTOMATIQUE DE MAIL (AVEC PIÈCE JOINTE) EN VBA : EXCEL, WORD OU ACCESS PAR OULOOK EXPRESS OU MODZILLA THUNDERBIRD OU D'AUTRES mail, automatique, pièce jointe, envoi mail, Source N°31545

Assez documenté

Salutations

 

[Épaf]

Re : Pdf par mail

Un autre lien ici (pas limité aux pdf)

 

[greg06500]

Re : Pdf par mail

Bonjour à tous,

Merci beaucoup pour vos lien, j'ai trouvé un code qui m'a l'ai très bien mais j'ai un problème avec le .Send

Si quelqu'un à une idée

Merci

@+

Sub Envoi_CDO1()
Dim CdoMessage As CDO.Message
Dim Fichier As Variant
 
    ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut"
    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
 
    If Fichier = False Then Exit Sub
 
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub

 

[Épaf]

Re : Pdf par mail

Chemin = "C:\Documents and Settings\UserName\Mes documents\PdfOut"
...
...
...
    .AddAttachment.add Chemin & Fichier