Excel naar PDF en dan e-mailen

Status
Niet open voor verdere reacties.
B

Bizjan

Nieuwe gebruiker
Lid geworden
28 mei 2009
Berichten
3
Hallo allemaal,

Ik ben absoluut niet bekend met VB, dus sorry voor dit! Ik heb al heel wat voorbeelden gezien op het internet, maar ik krijg het maar niet werkend.

Ik heb al een macro die x pagina omzet naar PDF met een celwaarde als bestandsnaam op x locatie. Door een add-in te installeren is het een stuk makkelijker geworden voor mij. Voor de code zie onder:
Code: 
Sub P3_4PDF()
' P3_4PDF Macro
        Dim PDFFilename As String
    
    Let PDFFilename = "MyLocation" & Sheets("MySheet").Range("Cell")
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=PDFFilename, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=3, To:=4, OpenAfterPublish:=False
End Sub

Nu moet ik dit script nog uitbereiden, zodat hij dit bestand automatisch als een bijlage via Outlook 2007 toevoegt met 2 standaard e-mailadressen. Ik heb voor het mailen ook al wel een script gevonden:
Code: 
Sub mail()
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
 
With Itm
    .Subject = Range("")
    .To = "xxxx@xxx.xx"
    .CC = "xxxx@xxx.xx"
    .body = "" 
    .Attachments.Add ()
    .Send
End With
End Sub

Maar hoe vlecht ik deze 2 codes nou in elkaar?

Mvg,

Rob
 
Ik heb nog een code gevonden, maar hij is een stuk langer...
Code: 
Sub VerstuurEmail()
    Dim objOl As Outlook.Application
    Dim objMail As Object

    Set objOl = Outlook.Application 'Start Outlook
    Set objMail = objOl.CreateItem(olMailItem)
        Dim objAccount As Outlook.Account
    For Each objAccount In objOl.Session.Accounts
        If objAccount.DisplayName = "" Then
            Set objMail.SendUsingAccount = objAccount
        End If
    Next
    Set objAccount = Nothing
       objMail.SentOnBehalfOfName = "<>"
   
    With objMail
        .To = "to@emailadres.nl" 
        .CC = "cc@emailadres.nl" 
        .BCC = "bcc@emailadres.nl" 
        .Subject = "Onderwerp e-mail"
        .body = ""
        '.HTMLBody = "<HTML><P>TEST</P></HTML>"
        .NoAging = True
        .Attachments.Add ""
        '.Display 
        '.Save 
        .Send 
    End With

    Set objMail = Nothing
    objOl.Quit
    Set objOl = Nothing
End Sub

Misschien dat deze de voorkeur moet krijgen...
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan