Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1612to1616
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
Inhaltsverzeichnis

Excel mit Outlook verbinden

Excel mit Outlook verbinden
12.03.2018 15:06:50
hans
Hallo kann mir jemand sagen wie ich bspw. wenn ich in einer Excelliste Kontaktdaten habe und z.B in der Spalte M meine Email-Adressen habe wie ich das hin bekomme das wenn ich Beispielweise auf die Email Adresse Klicke diese direkt geöffnet wird und direkt einen Text mit Anrede bsp Frau oder Herr das in Spalte D hinterlegt und den Namen der in Spalte E festgelegt ist, öffnet. Es soll praktisch direkt als Emailvorlage für Outlook dienen.
Danke schonmal im Vorraus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel mit Outlook verbinden
12.03.2018 15:09:23
Oberschlumpf
Hi hans ,
zeig uns bitte per Upload eine Bsp-Datei inklusive Bsp-Daten.
Ciao
Thorsten
hier ein Bsp.
12.03.2018 15:48:13
udo

Sub EMail_Test_1()
'       ======================================================================================== _
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Sheets("Kunden").Range("AE47").Value          '  Empfängerfeld ausfü _
llen, liest Emaileintrag im Tab.Blatt "kunden" Zelle  AE47
'                     Der Versand an mehrere Adressaten innerhalb von To, CC oder BCC erfolgt  _
durch ein Semikolon als Trennzeichen.
.Subject = Sheets("Kunden").Range("I56").Value    ' Betreff
.Display                                                               '   _
Email öffnet sich
'                    .Send                                                                    '  _
wird dann gleich gesendet
'                    .CC = "deinname@deinedomain.de"     '  CarbonCopy an deine Email
'                    .BCC = "deinname@deinedomain.de"  '  Blindkopie
'                    .Attachments.Add "C:/Beispiel.xlsx"     '  Anhang
.HTMLBody = ""
'                    .body = Sheets("TX").Range("B2").Value    '  hier könnte man Text fürs  _
Textfeld angeben ..
End With
Set Nachricht = Nothing
Set OutApp = Nothing
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige