Makro der sender mit regneark som mail med Outlook (2003)

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:="xx@xxx.dk", _
        Subject:="Fakturakladde"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
  MsgBox "Mail sendt til YYY"
End Sub

Lige efter bogen! Det var en stor hjælp. Send et svar, så skal jeg afregne med det samme :=)

et svar ;-))

tak for point ;-))

Hej,

Kan man få ovenstående til at hente mail adresse fra et bestemt felt i regnearket? Evt. angive hvilke ark der skal sendes med mailen.

Mvh. E100

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
Modtager = ActiveCell ' tager mailadressen fra den celle du står på
  Sheets("DitArk").Copy ' ret navnet(DitArk") til navnet på det ark der skal sendes
  With ActiveWorkbook
        .SendMail _
        Recipients:=Modtager, _
        Subject:="Fakturakladde"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
  MsgBox "Mail sendt til YYY"
End Sub

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
Modtager = ActiveCell ' tager mailadressen fra den celle du står på
  Sheets("DitArk").Copy ' ret navnet(DitArk") til navnet på det ark der skal sendes
  With ActiveWorkbook
        .SendMail _
        Recipients:=Modtager, _
        Subject:="Fakturakladde"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
  MsgBox "Mail sendt til " & Modtager
End Sub

Tak for hjælpen, men det løser ikke helt problemet. Jeg vil gerne have den til at referere til en specifik celle i regnearket, hvor e-mail adressen altid skrives (B11).

Jeg har prøvet at udskifte ActiveCell med B11, men det virker ikke helt.

/E100

Hej,

Jeg har fundet følgende:

Sub test()
Range("c1").Hyperlinks(1).Follow
End Sub

Den starter outlook og indsætter fint mail adressen fra celle c1, men så er der ikke vedhæftet noget regneark.

Er det muligt at kombinere de 2?

/E100

Modtager = Sheets("DitArkMedAdresser").Range("B11")

Takker det virker fint, men jeg vil egentlig gerne bare have den til at åbne outlook med modtager adressen indtastet og arket vedhæftet så jeg manuelt kan skrive en meddelelse og evt. rette subject.

/E100