Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
aus Sicherheitsgründen funktioniert .Send nicht mehr. Der user müsste ggf. selbst auf Senden drücken.
Ansonsten, nimm mal statt
Code:
With .GetInspector.WordEditor.Application.Selection
.Start = iEinf: .End = iEinf
.PasteExceltable 'Grafik in Mail einfügen
End With
dann
Code:
.GetInspector.WordEditor.Range(iEinf, iEinf).Paste 'Bereich in EMail als Tabelle einfuegen
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 30.05.2020
Version(en): Microsoft Excel 365 (2016)
Hallo!
Danke für die Hilfe!
Jetzt funktioniert es!
LG
Marek
Registriert seit: 22.11.2019
Version(en): 365
08.06.2020, 14:50
(Dieser Beitrag wurde zuletzt bearbeitet: 08.06.2020, 14:57 von volti.)
Hallo Marek,
den .Display bitte stehen lassen. Der wird speziell hier zum Einfügen benötigt.
Den .Send-Befehl vor das letzte End With setzen. Falls, wie ich aus Deinem letzten Post entnehme, keine Sicherheitsabfrage kommt, wird die Mail ja versendet.
Da braucht man den SendKeys ja nicht.
Dieser sollte ja nur den Tastenanschlag Alt-S simulieren.
viele Grüße
Karl-Heinz
Hi Schauan,
irgendwie komme ich mit den mehreren Seiten noch nicht zurecht, daher lese ich jetzt erst, dass es bei Marek funktioniert.
Allerdings habe ich gerade eine Mail via .Send von meinem Privatrechner an meine eigene eMail-Adresse geschickt. Ohne Sicherheitsmeldung tadellos abgesendet und angekommen.
Ich denke, dass das schon noch funktioniert und es von den Einstellungen abhängt. Während meiner langjährigen Arbeitszeit in der Firma ging es nicht, da kam die Meldung.
viele Grüße
Karl-Heinz
Registriert seit: 30.05.2020
Version(en): Microsoft Excel 365 (2016)
Hallo!
Vielen vielen Dank für die Info!
Funktioniert fast noch besser!
Grüße
Marek
