Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Mail mittels VBA an angemeldeten User senden

Forumthread: Mail mittels VBA an angemeldeten User senden

Mail mittels VBA an angemeldeten User senden
18.11.2024 16:55:05
KBB
Hallo folgender Codeschnipsel ist vorhanden, 




Sub EmailDirektSenden()

Dim objOutlook As Object

Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

With objMail

.To = "deinname@deinedomain.de"

.Subject = "Betreff"

.Body = "Ihre Nachricht."

.Send        'Sendet die Email automatisch

End With

End Sub


Statt einer vordefinierten, im Code hinterlegten, E-Mail Adresse, soll jetzt die Mail an den am PC angemeldeten User geschickt werden. Outlook wird über einen Exchangeserver betrieben. Sozusagen soll der User beim Nutzen der Funktion sich selbst die E-Mail senden.
Wie schafft man das? Ich habe viel probiert, aber nichts führte zum Ziel. :(
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail mittels VBA an angemeldeten User senden
18.11.2024 17:07:07
Uduuh
Hallo,
falls der Anmeldename identisch mit dem Mail-Empfänger ist: 
.To = Environ("Username") & "@deinedomain.de"


Gruß aus'm Pott
Udo
AW: Mail mittels VBA an angemeldeten User senden
19.11.2024 11:24:42
KBB
Leider weichen Outlook E-Mail Adresse und Benutzername voneinander ab.
Der Benutzername wäre der Alias in Outlook, darüber kann man aber keine E-Mail senden.
Anzeige
AW: Mail mittels VBA an angemeldeten User senden
19.11.2024 10:47:39
Volti
Hallo,

Vielleicht auch so

.to = .GetNamespace("MAPI").CurrentUser.Address

Gruß Karl-Heinz
AW: Mail mittels VBA an angemeldeten User senden
19.11.2024 12:24:43
Alwin Weisangler
Hallo,

eine von diversen Möglichkeiten wäre so: 


Sub EmailDirektSenden()

    Dim objOutlook As Object

    Dim objMail As Object

    Dim Sender$

    Set objOutlook = CreateObject("Outlook.Application")

    Set objMail = objOutlook.CreateItem(0)

    Sender = objMail.Session.Accounts.Item(1).DisplayName

    With objMail

        .To = Sender

        .Subject = "Betreff"

        .Body = "Ihre Nachricht."

        .Send        'Sendet die Email automatisch

    End With

End Sub


Gruß Uwe
Anzeige
AW: Mail mittels VBA an angemeldeten User senden
19.11.2024 11:39:10
KBB
Füge ich das zweite in die passende Stelle im Code ein. erhalte ich leider Laufzeitfehler 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht 

Private Sub EMailsenden_Click()







Dim objOutlook As Object

Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

With objMail

.To = .GetNamespace("MAPI").CurrentUser.Address

.Subject = "Betreff"

.Body = "Ihre Nachricht."

.Send        'Sendet die Email automatisch

End With

End Sub
Anzeige
AW: Mail mittels VBA an angemeldeten User senden
19.11.2024 11:50:22
volti
Sorry,

das war ein ungetesteter Schnellschuss vom Handy....
Das Element ist kein Mailunterelement sondern ein Unterelement von Outlook. 

Code:


Private Sub EMailsenden_Click()
  Dim objOutlook As Object
  
  Set objOutlook = CreateObject("Outlook.Application")
  
  With objOutlook.CreateItem(0)
     .To = objOutlook.GetNamespace("MAPI").CurrentUser.Address
     .Subject = "Betreff"
     .Body = "Ihre Nachricht."
     .Send       'Sendet die Email automatisch
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige

Forumthreads zu verwandten Themen

VBA - excel Arbeitsmappe automatisch speichern und als Email versenden
Veronika

Guten Morgen,
ich habe eine xls. Arbeitsmappe, in der ich Daten eintrage.
Ich würde gerne, diese Arbeitsmappe, nach dem eintragen von neuen Daten per Mail verschicken.
Das versenden als Mail funktioniert mit Makro schon mal. Leider speichert er mir aber nicht die Arbeitsmappe vor d...
16.07.2020 08:46:07
Thread-ID: 1771848
4 Beiträge
VBA : Lotus Notes Mail per Vorlage
NoNet

Hallo Leute,
ich habe ein Problem, das nur temporär (bis gar nicht - *schäm*) mit Excel zu tun hat :
Ich habe in Excel eine Liste mit eMail-Adressen (Spalte A) und Auftragsnummern (Spalte B).
Nun möchte ich per VBA die eMail-Empfänger per Mail anschreiben - ein entsprechendes Makro...
29.09.2010 17:56:46
Thread-ID: 1179908
4 Beiträge
[Machbarkeit] VBA Excel & Outlook
Patrick
Hallo liebes Forum,
ich habe eine Frage zur Machbarkeit meines Vorhabens (und bin natürlich dankbar für jeden guten Tipp, wie man es auch besser machen könnte).
Ich möchte Routine-Aufgaben in Outlook und Excel gerne "automatisieren" und vereinfachen. Folgendes habe vor:
Ablauf
Kunden...
12.05.2022 11:38:41
Thread-ID: 1883288
7 Beiträge
Fehler beim Emailversand
Jenny

Hi Ihr,
ich habe eine Tabelle mit einem Button, dem nachfolgendes Makro zugewiesen ist, das leider noch nicht ganz so funktioniert, wie geplant. :-)
Ziel:
Beim Klick auf den Button soll eine neue Email im bereits geöffneten Email-Programm (ist permanent geöffnet) erstellt werden....
13.03.2012 21:46:50
Thread-ID: 1254833
7 Beiträge
Zellenbezug zur Schaltfläche
Ben
Hi und Hallo zusammen, bisher bin ich nur stiller "Mitleser" gewesen um mir bei den ein oder anderen Excellisten oder Makros etwas abzuschauenn und zu lernen. Da ich noch recht unerfahren in VBA bin, komme ich tatsächlich mit meinem Problem alleine nicht mehr weiter und hoffe durch euch weiterzukom...
02.02.2023 12:08:21
Thread-ID: 1918614
7 Beiträge
Makro in Excel 97 verursacht Fehler in Outlook 03
00011011

Moin zusammen...
ich habe mal wieder ein ungewolltes Problem. Folgender Sachverhalt ist gegeben:
Wir arbeiten in meiner Firma mit folgenden Programmen:
Excel 97 SR-2
Outlook 98 (8.5.5104.6)
Bitte an dieser Stelle keine hämischen Kommentare; ich ärgere mich auch täglich mit u...
18.09.2007 13:13:25
Thread-ID: 908283
7 Beiträge
Anzeige
VBA Makro Email Signatur
Max

Hallo,
ich versuche ein Makro zu schreiben das Automatisch eine Email an einen Verteiler (Excel Tabelle) sendet, einen Gewissen Betreff und Text enthält sowie eine Datei in Anhang hat. Das funktioniert soweit. Nun würde ich gerne Meine Standard Outlook Signatur benutzen, das funktioniert ab...
10.11.2014 12:21:58
Thread-ID: 1391428
5 Beiträge
Simples Makro läuft nicht mehr
Hennes

Hallo VBA-Experten,
bis vor einem halben Jahr funktionierte das unten aufgeführte Makro problemlos. Mit ihm habe ich aus einer Excel-Datei heraus eine Email mit Anhang versendet. Aber jetzt, Monate nach der letzten Nutzung, bleibt es stets an der gleichen Stelle hängen. Kann mir jemand helf...
23.12.2018 13:50:11
Thread-ID: 1664355
7 Beiträge
IBM Notes oder Outlook?
Klaus

Hi Leute,
bei uns wird grad von IBM Notes auf Outlook umgestellt. Kein Problem, für beides hab ich _ bereits das passende Makro parat. Private Sub SendMail_Outlook(sSubject As String, sTo As String, sCC As String, sText As String) 'original Outlook Code by mumpel / www.herber.de / 11.04....
02.11.2020 11:06:12
Thread-ID: 1790646
7 Beiträge
formular per email versenden
Jürg

Hallo Forum
ich habe ein VBA gefunden das noch erweitert werden sollte ...wenn das geht.
ich möchte einen Absenzettel online erfassen , von Mitarbeiter an Chef senden als Datei.xlsm, von Chef an personal dann als pdf ankommen....
gibt es so etwas, ist das möglich?
anbei Makro un...
06.03.2014 17:53:13
Thread-ID: 1352457
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum