Hallo liebe Forum-Leser,
liebe Cracks, liebe Hobbybastler, liebe....,habe ich jemanden vergessen,
ich grüße alle die sich für Excel interessieren...und vor allem, Hans W. Herber.
Das PROBLEM:
Aus einer Arbeitsmapppe sollen die Informationen des Tabellenblatt2
(NAME;VORNAME;ORT;NUMMER), in "CVS-Format" (*.cvs) als Anhang in einer Mail
versendet werden.
Ja, das ist eigentlich schon alles,...dachte ich auch. Habe nun einen Tag
damit verbracht, schlaflose Nacht,...ich habe keine Idee mehr, wie weiter..
Bitte um Eure Hilfe !!! Ich traue mich mal ganz, ganz vorsichtig
den Anfang mit ein paar Zeilen zu machen:
-------------------------------------------------------------------
Sub CvsErstellen()
ActiveWorkbook.SaveAs Filename:= _
"Test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
ThisWorkbook.Saved = True
Workbooks.OpenText Filename:= _
"Test.csv"
TabSenden
End Sub
-------------------------------------------------------------------
Sub TabSenden()
Dim Empfänger As String
' cvs wurde erstellt, nun senden!
Empfänger = "123@123.de"
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".cvs"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:=Range("A1").Value
ActiveWorkbook.Close savechanges:=True
'ActiveWorkbook.Close
End Sub
-------------------------------------------------------------------
Wer kann helfen ?
LG
Stefan