Send mail fra Excell

se evt. her

http://www.eksperten.dk/spm/411740

Dem kan jeg ikke få til at virke....tilsyneladende stopper enten antivirus eller firewall den i at få adgang til Outlook.

Outlook kan generelt ikke lide at bleive kaldt af andre programmer, og der vil typisk komme en dialogboks, hvor man skal tage stilling til, om programmet må få adgang til at sende. Er det også det, der sker hos dig?

Ja..ganske rigtigt en dialogboks hvor jeg skal give den lov; men der sker ingenting...

Sub SendPost()
Modtager = ActiveSheet.Range("A1")
overskrift = ActiveSheet.Range("B1")
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
    With ActiveWorkbook
        .SendMail _
        Recipients:=Modtager, _
        Subject:=overskrift
        .Close SaveChanges:=False
  End With

  Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
End Sub

Så virker den....lægger du lige et svar? Tak for hjælpen.

Velbekomme :o)