Macro kode der automatisk sender en email fra excel.

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
  ' Recipients:=Range("A1") modtagerens adresse står i A1
        .SendMail _
        Recipients:=Range("A1"), _
        Subject:="her skal subject stå"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
End Sub

Denne sender et kopi af det ark man står på

Sub SendDetteArk()
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub

kabbak:
Den første (SendPost)kan jeg ikke få til at virke, skønt der er både Outlook og Outlook Express på maskinen.
Den anden (SendDetteArk) kopierer hele regnearket og melder så fejl i linien >Application.Dialogs(xlDialogSendMail).Show<.

Nogle gode forslag?

I dit modul,der hvor koden står, Kik under tools references, hvad er vinget af der

-Visual Basic For Applications
-Microsoft Excel 9.0 Object Library
-OLE Automation
-Microsoft Office 9.0 Object Library

Hvad skal være vinget af ?

Jeg har også
Microsoft Forms 2.0 Object Library

mon det er det du mangler

Microsoft Forms 2.0 Object Library
Det er der ikke noget der hedder i listen?
Jeg har også prøvet at vinge følgende af men det hjalp heller ikke:
-Microsoft Outlook 9.0 Object Library
-Microsoft Word 9.0 Object Library

Hvis du står i Excel, gå i Filer, find send post, eksisterer den ved dig. ?

Jeg har ikke lige send post, men Filer - Send til - Postmodtagere.

Prøv at optage en makro, hvor du udfører send til postmodtager.
Du kan bare sende til dig selv.

Se på makroen og ret den til, så det passer til dig.

Det vil jeg lige prøve

Hvis du bruger MS-Outlook (ikke outlook express) kan denne kode køre

Sub SendMinMailexsempel()
x=CreateMail("xx@yyy.dk","Her står subjectet","Her står bodyfeltet (mvh)", _
        "C:\vedhætetFil.XLS")
End Sub


Function CreateMail(astrRecip As Variant, _
                  strSubject As String, _
                  strMessage As String, _
                  Optional astrAttachments As Variant) As Boolean

  Dim olApp                As Outlook.Application
  Dim objNewMail            As Outlook.MailItem
  Dim varAttach            As Variant
  Dim blnResolveSuccess    As Boolean

  On Error GoTo CreateMail_Err

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

  With objNewMail
    .Recipients.Add astrRecip
      For Each varAttach In astrAttachments
        If Not IsEmpty(varAttach) Then .Attachments.Add varAttach
      Next varAttach
      .Subject = strSubject
      .Body = strMessage
      .Save    '.Send
     
  End With

  CreateMail = True

CreateMail_End:
  Exit Function
CreateMail_Err:
  CreateMail = False
 
  Resume CreateMail_End
End Function

Husk at sætte reference til (flueben ved) Microsoft Outlook 9.0 Object Library

spørgsmål lukkes

Ingen af de indkomne forslag har virket.