Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email aus Excel versende Office 2016

Email aus Excel versende Office 2016
26.09.2020 14:04:10
Toby...
Hallo!
Ich habe eine Excel Datei in der per Klick eine Email gesendet wir dmit Betreff und der Datei im Anhang.
Seit meinem Upgrade von Office 2010 auf 2016 hängt sich das Makro immer bei Applications.dialog auf.
Das Makro hat ir damals auch jemand hier i Forum geschrieben.
Hoffe ihr könnt mir erneut helfen:
Dim MailAddreasse
With Sheets("Verteiler")
MailAddreasse = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
End With
Application.Dialogs(xlDialogSendMail).Show MailAddreasse, Sheets("Tabellen").Range("E2")

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email aus Excel versende Office 2016
26.09.2020 14:22:45
Nepumuk
Hallo Toby,
teste mal:
Option Explicit

Public Sub CreateMail()
    
    Dim objOutlook As Object, objMail As Object
    Dim strMailAddress As String
    
    With Worksheets("Verteiler")
        strMailAddress = .Cells(.Rows.Count, 1).End(xlUp).Text
    End With
    
    Set objOutlook = CreateObject(Class:="Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        
        .BodyFormat = 2
        .To = strMailAddress
        .Subject = "Betreff"
        .Body = "Hallo"
        Call .Display
        
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Email aus Excel versende Office 2016
26.09.2020 14:49:09
Toby...
Hallo!
Danke für die schnelle Antwort.
Es öffnet sich zumindest wieder.
Leider wird nur die letzte Email Adresse von 44 übernommen und die aktuelle Datei nicht angehängt.
Kannst du mir da auch weiterhelfen?
Toby...
AW: Email aus Excel versende Office 2016
26.09.2020 15:22:56
Nepumuk
Hallo Toby,
so?
Public Sub CreateMail()
    
    Dim objOutlook As Object, objMail As Object
    Dim strMailAddress As String
    
    With Worksheets("Verteiler")
        strMailAddress = Join(Application.Transpose( _
            .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2), ";")
    End With
    
    Set objOutlook = CreateObject(Class:="Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        
        .BodyFormat = 2
        .To = strMailAddress
        .Subject = "Betreff"
        .Body = "Hallo"
        Call .Attachments.Add(ActiveWorkbook.FullName)
        Call .Display
        
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Email aus Excel versende Office 2016
26.09.2020 23:31:50
Toby...
Perfekt. Vielen Dank!!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige