Excel - en makro der sender hele regnearket til en bestemt person på mail

nej

#17

Jeg Mener: Det kan man ikke!


































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































#17

Hov undskyld det var en fejl... Men min space knap er lidt kaput..

Mange gange undskyld

Hvis din mail-adresse står i celle A1 kan du bruge følgende:

Sub SendMail()
  Dim eMail As String
  eMail = Worksheets(\"Sheet1\").Range(\"A1\")
  ActiveWorkbook.SendMail Recipients:=eMail
End Sub

Makroen skal så selvfølgelig sættes på en knap.
Vælg og indsæt en kommandoknap fra værktøjslinien \"Formular\". Så vil en dialogboks spørge efter en makro, hvorefter du kan tilknytte ovenstående.

17 - må jeg anbefale dig at købe et nyt tastatur :o)

GENIALT!!!!!!!

Men hvis man skal sende til flere personer skal man så bare skrive .Range(\"A1:A10\") ?

Hvis man skal skrive noget i subject, hvor skal man så gøre det henne!

denne makro åbner dialogboxen i outlook og giver dig mulighed for at se din mail først:

Sub send()
Dim rng As Range
Set rng = Range(\"a1:a10\")
For Each c In rng.Cells
Application.Dialogs(xlDialogSendMail).Show _
arg1:=c, _
arg2:=\"Her er subject\"
Next
End Sub

Application.Dialogs(xlDialogSendMail).Show

Nå, jeg fandt selv ud af at sende til flere.. her er løsningen (måske ikke den mest elegangte, men funktionsbar):

Sub SendMail()
  Dim eMail As String
  eMail = Worksheets(\"Emails\").Range(\"A1\")
    ActiveWorkbook.SendMail Recipients:=eMail
  eMail = Worksheets(\"Emails\").Range(\"A2\")
    ActiveWorkbook.SendMail Recipients:=eMail
  eMail = Worksheets(\"Emails\").Range(\"A3\")
    ActiveWorkbook.SendMail Recipients:=eMail
  eMail = Worksheets(\"Emails\").Range(\"A4\")
    ActiveWorkbook.SendMail Recipients:=eMail
  eMail = Worksheets(\"Emails\").Range(\"A5\")
    ActiveWorkbook.SendMail Recipients:=eMail
  ActiveWorkbook.SendMail Recipients:=eMail
End Sub

Jeg takke janvogt for det hurtige svar. Og også en tak til jer andre.