12. marts 2011 - 10:52Der er
1 kommentar og 1 løsning
Makro til at sende mail
Har brugt denne makro til at afsende mail. men den indsætter regnearket, og ikke en fakturafil: Public Sub Send_Mail() ' Denne sender mail til valgfri modtager, altså man skal selv sætte modtager ind. Application.Dialogs(xlDialogSendMail).Show Arg1:=" ", Arg2:="Fremsender hermed faktura" End Sub
Det jeg egentligt ville have den til er at tage et aktuelt fakturanummer (står i regnearket) og bruge fakturanummeret som filnavn og med extension PDF ( ligger på C:\faktura) Indsætte afsendernavn, og signatur. signaturen skal kunne være forskellig.
Det jeg ønsker at gøre, er at sende en mail til en modtager (valgfri) med fakturaen vedhæftet (omtalte PDF fil), og med valgfri signatur (der er flere signaturer i Outlook) afhængig af fakturatype (ligger i en celle i regnearket).
Fandt selv delvis løsning: ' requires a reference to the Microsoft Outlook 8.0 Object Library Public Sub Send_Mail()
Dim OlApp As New Outlook.Application Dim myNameSp As Outlook.Namespace Dim myInbox As Outlook.MAPIFolder Dim myExplorer As Outlook.Explorer Dim NewMail As Outlook.MailItem Dim OutOpen As Boolean
' Check to see if there's an explorer window open ' If not then open up a new one OutOpen = True Set myExplorer = OlApp.ActiveExplorer If TypeName(myExplorer) = "Nothing" Then OutOpen = False Set myNameSp = OlApp.GetNamespace("MAPI") Set myInbox = myNameSp.GetDefaultFolder(olFolderInbox) Set myExplorer = myInbox.GetExplorer End If ' myExplorer.Display ' You don't have to show Outlook to use it
' Create a new mail message item. Set NewMail = OlApp.CreateItem(olMailItem) With NewMail .Display .Subject = "Fremsender hermed fakturanummer " & [L16] .To = "" .Body = Chr(13) & Chr(13) & "Med venlig hilsen" .Attachments.Add ("C:\faktura\" & [L16] & ".pdf") End With
End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
