Bild aus Excel per VBA in Outlook Mail?

Hi Leute,

ich stehe gerade etwas auf dem Schlauch.

Ich habe einen Bereich aus Excel als Bild in der Zwischenablage:

Range("D100:Z04").CopyPicture xlScreen, xlBitmap

Wie bekomme ich den jetzt in eine Email rein?

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
    .To = "test@test.com"
    .CC = ""
    .BCC = ""
    .Subject = "This is the Subject line"
    .HTMLBody = RangetoHTML(rng)
    .Display
  End With
  On Error GoTo 0

Hab es schon mit

-Body = SendKeys "^V" probiert aber das scheint nicht zu funktionieren.

In der Zwischenablage ist es. Wenn ich eine neue Mail öffne und Strg+V drücke wird es mir wie gewünscht eingefügt. Nur über VBA kriege ich das nicht hin.

Sorry fürs blöd anstellen und danke schon mal für eure Hilfe.

Chris

2 Antworten

Dig1talW1zard

17.04.2023, 11:39

Hallo augsburgchris,

um ein Bild aus Excel in eine E-Mail einzufügen, könntest du das folgende VBA-Skript verwenden:

Sub EmailBild()

Dim OutApp As Object

Dim OutMail As Object

Dim rng As Range

Dim Chart As ChartObject

mathematica

Copy code
Set rng = Range("D100:Z104") 'Bild aus Excel erstellen Set Chart = ActiveSheet.ChartObjects.Add( _ Left:=rng.Left, _ Top:=rng.Top, _ Width:=rng.Width, _ Height:=rng.Height) Chart.Activate ActiveChart.ChartArea.Copy 'E-Mail erstellen und Bild einfügen Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = "Empfänger@beispiel.com" .Subject = "Bild aus Excel" .Attachments.Add Chart.Chart.Export("C:\Bild.png") .Display End With 'Bild aus Excel entfernen Chart.Delete
End Sub

Dieses Skript erstellt ein Chart-Objekt aus dem angegebenen Zellbereich, kopiert es in die Zwischenablage und fügt es als Anhang in die E-Mail ein.

Ich hoffe, dass dir das weiterhilft. Wenn du weitere Fragen hast, stehe ich gerne zur Verfügung.

Woher ich das weiß:Berufserfahrung

augsburgchris

Beitragsersteller

17.04.2023, 11:50

Hi danke schon mal aber es soll ja kein Chart aus dem Bereich werden (Dieses ist ja dann Leer. Ich möchte ja dem Bereich als Bild rauskopieren.

Bei .Attachments.Add Chart.Chart.Export ("C:\Bild.png") Hängt er sich aber ohnehin auf.

augsburgchris

Beitragsersteller

17.04.2023, 13:30

@augsburgchris

Sorry ich nehme alle zu zurück. War blöd.

Hab es gelöst

augsburgchris

Beitragsersteller

18.04.2023, 13:32

@augsburgchris

Das ist die finale Lösung:

Sub Versenden()
  Application.ScreenUpdating = False
  ActiveSheet.Range("D140:CP145").CopyPicture Appearance:=xlScreen, Format:=xlPicture
  With ActiveSheet.ChartObjects.Add(0, 0, Range("D140:CP145").Width, Range("D140:CP145").Height).Chart
   .Parent.Activate
   .Paste
   .Export "F:\Privat\test.JPG"
   .Parent.Delete
  End With
  Application.ScreenUpdating = True
  
  
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "Empfänger@beispiel.com"
.Subject = "Betreff"
.htmlbody = "Hallo zusammen, <br><br> Text <br><br><img src='F:\Privat\test.JPG'><br><br> Viele Grüße <br> Chris"
.Display
End With
End Sub

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

17.04.2023, 15:54

Das geht bei mir:

OutMail.GetInspector.WordEditor.Range.Paste

Anregung von https://answers.microsoft.com/en-us/outlook_com/forum/all/paste-clipboard-to-outlook-with-vba/a1a27b25-1534-42ac-ae82-281e66ba30b6

augsburgchris

Beitragsersteller

18.04.2023, 13:30

Hab es jetzt so gelöst.

Sub Versenden()
  Application.ScreenUpdating = False
  ActiveSheet.Range("D140:CP145").CopyPicture Appearance:=xlScreen, Format:=xlPicture
  With ActiveSheet.ChartObjects.Add(0, 0, Range("D140:CP145").Width, Range("D140:CP145").Height).Chart
   .Parent.Activate
   .Paste
   .Export "F:\Privat\test.JPG"
   .Parent.Delete
  End With
  Application.ScreenUpdating = True
  
  
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "Empfänger@beispiel.com"
.Subject = "Betreff"
.htmlbody = "Hallo zusammen, <br><br> Text <br><br><img src='F:\Privat\test.JPG'><br><br> Viele Grüße <br> Chris"
.Display
End With
End Sub

Suboptimierer

18.04.2023, 13:56

@augsburgchris

Das funktioniert aber nur, wenn das Bild beim Empfänger unter dem angegebenen Pfad zu finden ist. Es wird nicht der Mail angefügt (würde mich jedenfalls wundern).

Es kann so sein, dass das dir bewusst ist und es so gewollt ist. Ich wollte es nur erwähnt haben. So kann es sein, dass in deinen Tests alles passt, aber bei einem externen Empfänger es mau aussieht.

augsburgchris

Beitragsersteller

18.04.2023, 13:56

@Suboptimierer

Auf dem Handy wird das Bild angezeigt. Und das hat keine Konnektivität zum Firmenrechner.

Suboptimierer

18.04.2023, 14:00

@augsburgchris

In HTML gibt es nur Links zu Bildern.

Sie werden eingebettet. Die HTML-Seite kann ohne Interpreter keine bitweise gespeicherten Bilddaten halten und als Bild darstellen. Selbst wenn es inzwischen gehen sollte, so hast du nicht die Bilddaten im htmlbody stehen, sondern nur den Link.

Suboptimierer

18.04.2023, 14:01

@augsburgchris

Wundert mich. Verstehe ich gerade nicht.

augsburgchris

Beitragsersteller

18.04.2023, 14:01

@Suboptimierer

Aber wieso kann ich die Email dann auf mein Handy schicken und das Bild wird dort angezeigt?

Suboptimierer

18.04.2023, 14:03

@augsburgchris

Das weiß ich um ehrlich zu sein nicht. Ich kann es mir nur so erklären, dass Outlook sich automatisch einklinkt, das Bild liest und die Bitdaten des Bildes in der Mail versteckt.

Hast du auch auf dem Handy Outlook? Würde mich mal interessieren, ob andere Clients die Bildinformationen auch rücktransformieren können, also ob das ein etablierter Standard ist. Microsoft definiert ja gerne Standards.

Teste es auf jeden Fall noch einmal mit einem anderen Client (gmx, webmail, yahoo, gmail, ...)

augsburgchris

Beitragsersteller

18.04.2023, 14:06

@Suboptimierer

Nein verwende auf dem privaten Handy das Mailprogramm von t-online.de.

An die Hotmail-Adresse die ich über Samsung Mail abrufe geht es auch wenn ich auf "Bilder laden" drücke.

Suboptimierer

18.04.2023, 14:07

@augsburgchris

Na dann würde ich sagen, Hauptsache läuft.

Suboptimierer

18.04.2023, 14:09

@augsburgchris

Im Zweifelsfall hättest du es noch als Attachment beifügen können. https://learn.microsoft.com/de-de/office/vba/api/outlook.attachments

Ähnliche Beiträge

Email mit vba aus Excel + Text aus Word

Hallo zusammen,

ich bin gerade dabei VBA zu lernen und würde gerne testen, wie man mit Outlook automatisch Emails versenden kann. Hierzu habe ich entsprechende Empfänger (Adresese, Vorname, Nachname und Betreff) in Excel. Einen entsprechenden Email-Text (inkl. Absatz und Textformatierung) habe ich in Word vorliegen. Kann man das irgendwie kombinieren?

Ich habe im Netz bislang nur Lösungen gefunden, wie man Emails versenden kann, bei denen alles in Excel oder dem VBA vorliegt.

z.B. diese hier:

Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 10 Empfänger
For i = 1 To 10
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        'Die Empfänger stehen in Spalte A ab Zeile 1
        .To = Cells(i, 1) 'E-Mail Adresse
        'Der Betreff in Spalte B
        .Subject = Cells(i, 2) '"Betreffzeil"
        'Der zu sendende Text in Spalte C
        'Maximal 1024 Zeichen
        'Der Text wird ohne Formatierung übernommen
        .Body = Cells(i, 3)
        'Hier wird die Mail angezeigt
        '.Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        .Send
    End With
    'Objectvariablen leeren
    Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
    Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
    'Sendepause einschalten
    'Outlook kann die Aufträge nicht schnell genug verarbeiten
    Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub

...zum Beitrag

VBA text Body wird teilweise in Zelle geschrieben anstatt in eMail?

Hallo,

ich habe folgendes Makro erstellt, um automatische eMail Anfragen in Outlook zu generieren und an manchen Tagen kommt es vor, dass der Text Body in eine Zelle des Excel Sheets geschrieben wird, anstatt in die eMail selbst, hier wird dann zwar die eMail generiert, aber lediglich mit den Empfängern und den Betreff. Woran kann das liegen und wie kann ich Abhilfe schaffen.

Sub Amendment_Initial_Capturing()

Dim olApp As Object

Dim objOutlook As Object

Dim objMail As Object

Dim Text As String

Set olApp = CreateObject("Outlook.Application")

Set objMail = olApp.CreateItem(0)

Text = "Dear all, " & Chr(13) & Chr(13) & " please perform the amendment of the initial capturing. Thanks."

With objMail

'.GetInspector ' sorgt für die Signatur

.To = "xxxxx"

.cc = "xxxxx"

.Subject = "DEALNAME - AMENDMENT INITIAL CAPTURING"

.Display

End With

SendKeys Text

Set olApp = Nothing

End Sub

...zum Beitrag

EXCEL Tab. Inhalte mit Outlook senden?

Guten Morgen, ich hab mal eine Frage zu einem VBA.

Mein Code sendet zwar die E-Mail, nimmt aber den Dateiinhalt nicht mit. Kann mir da jemand helfen? Gruß

Hier mein Code: Public Sub Änderungen_Click()


    sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen:  "
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .GetInspector
            .Subject = "Änderungen"
                .Body = sMailtext & .Body
                        .Importance = 1
                    .To = "###########@t-online.de"
                    '   .Display
        With .GetInspector.WordEditor.Application.Selection
             ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
                 .Start = Len(sMailtext)
                     .End = Len(sMailtext)
                         '   .Paste
                End With
                    
                    .Send


            End With
    End
End Sub

...zum Beitrag

Wie löse ich das Problem mit Excel VBA?

Hi,

ich habe eigentlich einen Code der funktionieren sollte und möchte über eine Excel VBA Prozedur ein Word Dokument öffnen, welches dann über Excel zum Teil ausgefüllt wird.

Es kommt nun leider fast immer vor, dass sich das Word-Dokument 2x öffnet (1 Leerdokument. Muss dazu sagen, dass sich der Standard-Vorlagenordner auf einem Netzlaufwerk befindet.

Ich habe eine Pause von 1 Sekunde eingebaut, nachdem ich nach diesem Fehler im Netz gesucht habe, leider tritt das Problem weiterhin sehr häufig auf.

Vielleicht kann ja jemand helfen?

Danke im Voraus.

Sub create()
   Dim WordApp As Object
   Set WordApp = CreateObject("Word.Application")
   Call Sleep(1000)
   With WordApp
   .Visible = True
   .Documents.Open ("Q:\Dokument.docx")
   End With
End Sub

...zum Beitrag

Excel VBA Aktive Zelle mit Doppelklick in Zwischenablage?

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

...zum Beitrag

Excel-VBA: Nächste sichtbare Zeile bearbeiten

Ich muss z.T. große Dateien mit VBA bearbeiten, wobei oftmals mehrer 10.000 Datensätze ausgeblendet sein können. Diese müssen nicht bearbeitet werden.

Bisher habe ich die nächste zu verarbeitende Zeile gesucht, indem ich alle ausgeblendeten Zeilen per Schleife ignoriert habe (If ActiveSheet.Rows(_ExcelRow).EntireRow.Hidden). Dies kann bei 30.000 Sätzen aber schon mal eine ganze Weile dauern. Gibt es stattdessen eine elegantere Methode? Sendkeys("{Down}") funktioniert bei mir nicht, wenn Excel minimiert ist.

...zum Beitrag

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zum Beitrag

Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zum Beitrag

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zum Beitrag

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

...zum Beitrag

Excel VBA: Workbook aus Zelle?

Hi,

Ich würde gern den Workbook Namen aus einer Zelle auslesen und nutzen.

Aktuell verwende ich

Set W_Arbeitsmappe = Workbooks("Arbeitsmappenname")

und möchte das nun durch

Set W_Arbeitsmappe = Workbooks(Range("Z_Datei"))

ersetzen.

Z_Datei ist eine definierte Zelle, deren Wert auch stimmt (nutze sie bereits für ander Codeparts).

Allerdings sagt mir Excel immer an dieser Position "Typen unverträglich" aber warum?

...zum Beitrag

Excel: Code für Versenden einer Mail?

Hallo Community, wie kann ich es hinbekommen, dass die Dateinicht nur in den Postausgang gelegt wird sondern auch versendet wird? hier mein Code:

    Sub ExcelDateiSendenMitText()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.com; xxxxx@xxx.de"
.Subject = Range("F1") & Date & Time
.attachments.Add AWS
.Body = "text blabla"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Ich weiß nicht weiter bitte um hilfe

Danke schon mal im Voraus

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen