Makro til at udføre send samt udskrive den sendte mail

En hurtig makrooptagelse, giver denne kode:

Sub Makro1()
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Den makro du har der, den er optaget i Excel og har da intet med spørgsmålet at gøre?

/Christian

Sådan går det, når man læser for hurtigt..

Prøv denne her.

Sub SendEnMail()
  Dim OutL As Outlook.Application
  ' Husk referense til Microsoft Outlook XX.0 Object Library
  Dim Item As MailItem
  Set OutL = New Outlook.Application
  Set Item = OutL.CreateItem(olMailItem)
  With Item
    .Subject = "Subject"
    .Body = "En masse tekst."
    .To = "min@mail.dk"
    .Display
    .PrintOut
    .Send
  End With
  Set Item = Nothing
End Sub

Jeg var vist også lidt for hurtig på tasterne.

Her er et VBS eksempel i stedet for.

Dim ol
Dim ns
Dim newMail
Set ol = WScript.CreateObject("Outlook.Application")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = "Subject"
newMail.Body = "En masse tekst."
newMail.To = "en@mailadresse.dk"
newMail.Display
newMail.PrintOut
newMail.Send
Set ol = Nothing