Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Email mit Anhang versenden ueber outlook
abu
Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen.
Hier noch kurz was es am Ende werden soll: Aus einer Userform heraus soll per Butten ein paar Daten aus den Textboxen in ein Arbeitsblatt kopiert werden (Vorlage is in der Arbeitsmappe vorhanden) Diese Vorlage soll dann in eine neue Arbeitsmappe kopiert werden diese soll dann einen bestimmten namen bekommen und an eine Email als anhang begefuegt werden und an eine bestimmte Adresse verschickt werden. Danach alles loeschen.
Hier der Code der funktioniert, leider nicht bei mir...
Private Sub CommandButton1_Click()
'Working in 2000-2007
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
'Copy the sheets to a new workbook
Sourcewb.Sheets(Array("regel 2")).Copy
Set Destwb = ActiveWorkbook
'Determine the Excel version and file extension/format
With Destwb
If Val(Application.Version) 

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Email mit Anhang versenden ueber outlook
16.12.2009 13:28:45
abu
Dieser Code funktioniert:
Private Sub CommandButton11_Click()
Dim outObj As Object
Dim Mail As Object
Dim oilref As String
oilref = TextBox4.Value
ActiveWorkbook.Worksheets("Stock check").Copy
ActiveWorkbook.SaveAs "abc"
ActiveWorkbook.Close
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "" & oilref
.Body = ""
.To = ""
.CC = ""
.Attachments.Add "abc"
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
Kill "abc"
End Sub

Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige