Email vanuit excel?

[terbeest]

Hallo,

Zou het mogelijk zijn om vanuit excel een mail te sturen? Met een macro dan natuurlijk. Misschien in combinatie met word en een macro die in word opstart?

In Word kan ik namelijk wel een email maken (ik heb office 2003) maar in excel zie ik die functie (uiteraard) niet... Zou wel handig zijn opzich...

Groeten,

 

[Wim1960]

Excel heeft die mogelijkheid ook. Kijk even in excel onder Bestand>Verzenden naar.

Office 2K heeft het in ieder geval, de nieuwere versies waarschijnlijk ook. Of office 97 het heeft weet ik niet.

 

[jen]

In Excel 97 werkt dit ook.
---

In Excel 2003 staat deze knop op de werkbalk Standaard. Het kan zijn dat deze werkbalk is aangepast.
Als je aan de rechterkant van de werkbalk standaard kijkt, dan zie je daar een pijltje. Als je daar op klikt kan je knoppen toevoegen of verwijderen. Ga naar standaard en zet een vinkje bij E-mailadres.

 

[jzeedijk]

Hoi terbeest,

Het is hartstikke handig om vanuit excel e-mail te versturen. Sterker nog een programmaatje is al aanwezig op dit forum.

http://www.helpmij.nl/forum/showthread.php?s=&threadid=128041

Jeroen

 

[terbeest]

Hallo jongens,

Bedankt voor de verhelderende uitleg. Ik had er met m'n stomme kop weer eens overheen gekeken...

Nogmaals bedankt!

 

[djbartos]

Hieronder staande code werkt perfect... één vraagje nog...

Hij zou het onderwerp moeten halen uit cel a1 vanhetzelfde blad....

Weet er iemand raad?

Option Explicit

Private Sub send_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "djbartos@hotmail.com", _
"onderwerp"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True

End Sub

 

[djbartos]

Geplaatst door djbartos
Hieronder staande code werkt perfect... één vraagje nog...

Hij zou het onderwerp moeten halen uit cel a1 vanhetzelfde blad....

Weet er iemand raad?

Option Explicit

Private Sub send_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "djbartos@hotmail.com", _
"onderwerp"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True

End Sub

SORRY;;;

Ik heb niets gezegd ... heb het al gevonden, was simpeler dan ik dacht



Je vervangt "onderwerp" door

Sheets("Fiche").Range("a1").Value

bijvoorbeeld...