Maila skapad pdf från excel

[Aanee]

Hej

 

Jag har lyckats skapa ett macro som sparar mitt blad till en pdf precis som jag vill.

Nästa steg är att skapa ett till macro som tar samma pdf och bifogar detta i ett nytt mail från Outlook samt med filnamnet i ämnesraden.

 

Jag vill sedan manuellt kunna skriva in själva adressen och trycka på skicka.

 

Är helt säker på att detta ska gå men har inte lyckats hitta något på nätet än.

Nedan är koden jag har för att skapa pdf-filen.

 

Sub PrintPDF()

' pdf Macro

Application.ScreenUpdating = False

 

 

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "P:\Exempelmapp\" & Range("C6") & " " & Range("C7").Value, Quality:=xlQualityStandard, IncludeDocProperties:= _

        True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

 

    

    Application.ScreenUpdating = False

End Sub

 

Helst vill jag ha en knapp för ovan kod och en till knapp för att öppna Outlook med filen.

Har ni några tips?

[Tune]

Knappar för att starta macro är det sämsta alternativet för att starta macro men det är hur enkelt som helst att skapa en. Jag tycker de bara är i vägen på excelbladet.

 

Skapa knapp:

Skapa en Knapp i meny Utvecklare i grupp Infoga. Du får automatiskt upp en meny för att koppla macro till den skapade knappen.

 

Ett trevligare alternativ är att skapa menyer och lägga macron i. Ett enkelt sätt är att skapa en ny meny under Arkiv/Alternativ/Anpassa menyfliksområdet/ och till höger skapa en ny menyflik. Sen kan man på vänster sida ("Välj kommandon från" och val Macro) dra sina önskade macro till den nyligen skapade fliken.

 

Det går även att skapa flikar med vba-kod men då blir det lite mer avancerat. 

 

Går även att starta macro med kortkommando 

 

 

[Monshi]

Om man placerar knapparna rätt fungerar de bra

 

Maila den pdf som skapats. mmh.

Tror du får ta en titt här

https://msdn.microsoft.com/en-us/library/ff458119%28v=office.11%29.aspx#odc_office_UseExcelObjectModeltoSendMail_Introduction

eller här

http://www.rondebruin.nl/win/s1/outlook/amail6.htm

eller annat exempel på den senare sidan.

[Aanee]

Tack men blir inte riktigt klok på det ändå.

Knappar är inga problem, det vet jag hur man gör.

Har även lyckats skapa pdf-filen som jag vill med koden ovan.

 

Det jag inte lyckas med är att från samma excel-dokument, trigga ett makro som plockar den fil jag precis skapat och bifoga denna i ett mail med filnamnet som ämnesrad.

[Tune]

Koden i andra länken som länkas i inlägg 3 fungerar för mig efter en ändring:

Set sh = Sheets("Blad1") från att tidigare varit Set sh = Sheets("Sheet1") .

 

Vad är problemet? Du skriver bara att det inte fungerar men ingen problembeskrivning.