Microsoft Excel

Herbers Excel/VBA-Archiv

mappe per mail geht aber ohne inhalt?? | Herbers Excel-Forum


Betrifft: mappe per mail geht aber ohne inhalt?? von: lisa
Geschrieben am: 07.01.2010 11:59:16

Hallo
Ich versende mit folgendem Code meine gesamte Mappe als Mail- Anhang!
Funktioniert sehr gut nur leider ohne Inhalt!?
Also alles was ich eingetragen habe wird nicht übernommen!
Hat jemand eine Idee weshalb die Inhalte aus meiner Mappe nicht mit gesendet werden??

Hier der Code

Sub Makro1()

Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
        .To = "mayk.nitze@abraham.de"
        .Cc = "marco.kolodzinski@abraham.de;eva.brunkhorst@abraham.de;ina.taute@abraham.de"
        .Subject = "Tarameldung " & Date & Time
        .Attachments.Add AWS
        .Body = "Bitte DSD- Gewichte pflegen" & vbCrLf & "QSM"
       .Display
      End With
Set OutApp = Nothing
Set Nachricht = Nothing

End Sub
Kann mir hierbei jemand helfen??

Gruß Lisa

  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: lisa
Geschrieben am: 07.01.2010 12:00:39

Oh bitte den Inhalt vertraulich behandeln! Sofern es überhaupt geht!!
Hab gepennt!


  

Betrifft: wie .. Mappe per Mail geht ohne Inhalt von: Mike
Geschrieben am: 07.01.2010 12:18:21


Hey Lisa,

bei mir funktionierts ohne Probleme. Wo ist das Makro gespeichert und
wie rufst Du es auf?

Gruss
Mike


  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: Detlef
Geschrieben am: 07.01.2010 12:15:25

Hallo Lisa,

hattest Du die Datei vorher mit den Inhalten auch gespeichert?

Gruß Detlef


  

Betrifft: Mappe per Email von: Mike
Geschrieben am: 07.01.2010 12:19:25


Hey Detlef,

mit Outlook ist eine vorgängige Speicherung der Daten
nicht notwendig.


Gruss
Mike


  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: Detlef
Geschrieben am: 07.01.2010 12:39:33

Hallo Mike,

.Attachments.Add AWS holt die gespeicherte Datei und nicht die geöffnete. Wenn also im Speicherzustand leer ist auch der Anhang leer.

Gruß Detlef


  

Betrifft: genau so .. Mappe von: Mike
Geschrieben am: 07.01.2010 13:07:28


Hey Detlef,

besten Dank, Du hast vollkommen recht!

Gruss
Mike


  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: Josef Ehrensberger
Geschrieben am: 07.01.2010 12:21:15

Hallo Lisa,

probier mal so.

Sub Makro1()
  Dim Nachricht As Object, OutApp As Object
  Dim AWS As String
  
  AWS = Environ("USERPROFILE") & "\" & ThisWorkbook.Name
  ThisWorkbook.SaveCopyAs AWS
  
  Set OutApp = CreateObject("Outlook.Application")
  Set Nachricht = OutApp.CreateItem(0)
  
  With Nachricht
    .To = "mayk.nitze@abraham.de"
    .Cc = "marco.kolodzinski@abraham.de;eva.brunkhorst@abraham.de;ina.taute@abraham.de"
    .Subject = "Tarameldung " & Date & Time
    .Attachments.Add AWS
    .Body = "Bitte DSD- Gewichte pflegen" & vbCrLf & "QSM"
    .Display
  End With
  
  Kill AWS
  Set OutApp = Nothing
  Set Nachricht = Nothing
End Sub



Gruß Sepp



  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: lisa
Geschrieben am: 07.01.2010 12:29:47

Hallo Sepp und alle anderen


Danke euch!

Mit dem Code von Sepp funktioniert es tadellos! Was genau oder wie und wo wird denn hier gespeichert?
Kannst du evtl den Code kommentieren?
Aber nur wenn es nicht zu zeitraubend ist. So könnte ich vielleicht selbst rausbekommen weshalb es bei mir nicht funktionierz hat

Danke und Gruß Lisa


  

Betrifft: AW: mappe per mail geht aber ohne inhalt?? von: Josef Ehrensberger
Geschrieben am: 07.01.2010 12:34:00

Hallo Lisa,

die Mappe wird im Userverzeichnis als Kopie gespeichert und nach dem Einfügen als Anhang
wieder gelöscht.


Gruß Sepp



  

Betrifft: als .xls ... kleiner von: Mike
Geschrieben am: 07.01.2010 13:11:08


Hey Sepp,

Dein Makro zeigt bei mir einen kleinen Schönheitsfehler, da die
Datei ohne Erweiterung (.xls) zwischengespeichert wird, gehts
dann so auch ins Outlook.

Gruss
Mike


  

Betrifft: AW: als .xls ... kleiner von: Josef Ehrensberger
Geschrieben am: 07.01.2010 13:27:04

Hallo Mike,

aber nur, wenn du den Code in einer neuen, ungespeicherten Mappe laufen lässt.



Gruß Sepp



  

Betrifft: AW: als .xls ... kleiner von: Mike
Geschrieben am: 07.01.2010 13:39:14


... ja, das wird es sein. Ideal wäre es, wenn er diese Problematik
gleich abfangen würde.

Gruss
Mike


Beiträge aus den Excel-Beispielen zum Thema "mappe per mail geht aber ohne inhalt??"