Kode til send as attachment til bestemt adresse

Her er en kode til at sende via ms-outlook
Husk et sætte reference til Microsoft Outlook x.0 library i Tools/ References

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)

With olNewMail
    .Recipients.Add "tbc@linak.dk"
  ' .Recipients.Add "cddk@yy.com"
  ' .CC = "Team 2000"
    '.BCC = "Evaluering"
    .Subject = "Nye regneark"
    .Body = "Hermed fremsendes nye regneark"
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    '    .Add "C:\vare.xls"
    End With
    .Display
   
    .OriginatorDeliveryReportRequested = True

    '.Send
End With

Set olNewMail = Nothing
Set olApp = Nothing

End Sub

Fjern linien med .display og fjern ' foran .send hvis du ikke ønsker at se mailen før du sender.
Som du kan se er det også muligt at sende andre filer end den aktive
(' .Add "C:\vare.xls" )

erstat evt .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

med

.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Her er en løsning, som ikke forudsætter Outlook, og som kan bruges også til ikke gemte mapper:

Sub SendTil()
ActiveWorkbook.SendMail Recipients:="Jkr@lyngby.nu"
End Sub

yes, jkrons, hvorfor gøre det svært, når det kan gøres så dejlig nemt :-)

Ski´godt jeg har lige nogle kunder jeg skal klare, så vil jeg prøve det af. Takker.

Husk et sætte reference til Microsoft Outlook x.0 library i Tools/ References

Øh - Nu har jeg en dansk og finder ikke rigtigt noget der ligner under Funktioner - Er det i Excel jeg skal sætte dette ?

Jkrons - jeg har nu outlook, men synes at det er en fin og perfekt løsning du har lavet. Lægger du et svar så du kan få nogle point. Bak der er også lidt til dig, hvis du lægger et svar..

Mile, det er Tools/References under VBA (ALT+F11).

Nå der kan du bare se hvordan en blondine kan fjumse rundt :-)

Tak for det...

Hvad gør dét, at man fjumrer rundt i Excel, når man har det sjovere :-)

Ja - selvfølgelig - du har ret :-)

Glad for at kunne hjælpe selv om bak's løsning er mere forkromet :-)

Bak er bare go´. Han har hjulpet mig mange gange. Men tak til jer begge to og selvfølgelig Jan også, der formåede at lære mig at der er andre menuer end dem man lige kan se over gitterlinierne :-)

BAK> Nu har jeg ikke outlook, men kan linien med modtagere ikke være så en linie, f.eks. således
    .Recipients.Add "tbc@linak.dk,fd@win-consult.com"

Flemmin -> Jeg har lige chekkset, og det kan man godt.
Jeg skal bare bruge semicolon istedet for komma.

Super - så kan der eks. dannes en string udfra flere email adresse placeret i flere celler eller lign.

Er det muligt at få jkrons lille nemme løsning med en display før send, så der kan tilføjes eks. autosignatur ? Jeg stiller gerne nogle flere points på højkant !!