beim beenden Mail senden

16/12/2007 - 22:58 von Andreas Hartmann | Report spam
Hallo NG,
ich hoffe Ihr könnt mir, wie immer, helfen:
Ich könnte es gut brauchen, wenn beim schliessen einer Excel Datei eine mail
verschickt wird, mit dieser Datei als Anhang.
Oder aber, noch besser:
der Wert einer best. Zelle wird an eine Mail Adresse geschickt.

Wozu ?

Einfach:
Ich habe eine datei mit 52 Blàttern ( Wochen ) für einen Tagesabschluss ( 6
Tage auf jedem Blatt )
Das soll der Chef bekommen mit der Summe !
Am besten so:
Am Montag gab es eine Diff von X

machbar ?

Gruß
Andreas
 

Lesen sie die antworten

#1 Stefan Anderl
17/12/2007 - 16:16 | Warnen spam
"Andreas Hartmann" wrote:

Hallo NG,
ich hoffe Ihr könnt mir, wie immer, helfen:
Ich könnte es gut brauchen, wenn beim schliessen einer Excel Datei eine mail
verschickt wird, mit dieser Datei als Anhang.
Oder aber, noch besser:
der Wert einer best. Zelle wird an eine Mail Adresse geschickt.



Ich würde es so versuchen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'das ist eine Ereignisprozedur des Workbooks

Dim outlookvari As Object
Dim myitem As Object

Set outlookvari = CreateObject("Outlook.Application")
Set myitem = outlookvari.CreateItem(olMailItem)
myitem.Recipients.Add ("") 'Hier die Mail-Adresse von Cheffe
eintragen!

myitem.Body = Sheets("Tabelle1").Cells(1, 1).Value 'Hier das Blatt und die
Zelle mit dem Inhalt angeben, das kann natürlich auch erweitert werden (Hallo
Cheffe, ich hoffe, Sie haben gute Laune. Der Umsatz von heute ist bla,
bla, bla
myitem.Send 'und raus ist die Mail!

End Sub




Wozu ?

Einfach:
Ich habe eine datei mit 52 Blàttern ( Wochen ) für einen Tagesabschluss ( 6
Tage auf jedem Blatt )
Das soll der Chef bekommen mit der Summe !
Am besten so:
Am Montag gab es eine Diff von X

machbar ?

Gruß
Andreas

Ähnliche fragen