Hallo Rasta,
vielen Dank für den Link. da habe ich doch etwas gefunden, das mich auf diese Seite gebracht hat.
http://www.rondebruin.nl/cdo.htm#body
Da findet man Code zu den unterschiedlichsten Aufgabenstellungen. Es funktioniert super.
Ein kleines Manko habe ich noch. In meinem Tabellenblatt habe ich ein kleines Bild. Das Makro von Ron de Bruin löscht aber alles Shapes bevor es in den Body der email eingefügt wird. Wahrscheinlich ist es nicht möglich ein Bild in Excel so einzubinden, dass es, wenn die Datei zu HTM umgewandelt wird, so eingebettet ist, dass es nicht als Datei mitgeschickt werden muss.
Ich habe aber jetzt die Idee, dass man die Bilddatei im Internet ablegt und dann daruf so referenziert, dass beim Empfänger das Bild aus dem Internet geladen wird.
Hast Du eine Idee, ob bzw. wie so etwas gehen könnte?
Danke
Rolf
Rasta schrieb am 20.09.2005 14:56:53:
Hallo Rolf,
entschuldige, bin grad n bisserl im stress.
es müsste noch eine andere möglichkeit geben, ausser die email über "outlook" zu versenden.
schau dir mal den link an
http://groups.google.de/groups?q=email%20aus%20vba&hl=de&hs=Cf1&lr=&client=firefox-a&rls=org.mozilla:en-US:official&sa=N&tab=wg
ich hoffe du kommst weiter
viele grüße
rasta
Rolf Thielmann schrieb am 20.09.2005 12:59:26:
Hallo Rasta,
die eMailadresse wird vom Makro als Text eingegeben.
.Recipients.Add "rt@cinq.net"
ich fürchte, ich muss meinem Outlook (oder dem NAV) beibringen, dass mein Makro kein Virus ist.
Gruß
Rolf
Rasta schrieb am 20.09.2005 12:52:01:
Hallo Rolf,
entschuldige das ich mehr mutmaße,aber ich kann das ganze im moment bei mir nicht nachbilden....
die fehlermeldung lautet, das du auf die outlook-adressen zugreifst. kannst du denn nicht z.b. die empfängeradresse als text eingeben
"rolf.mustermann@muster.de"
??
viele grüße
rasta
Rolf Thielmann schrieb am 20.09.2005 12:45:15:
Hallo Rasta,
die Makrsicherheit ist bei mir schon auf niedrig gestellt.
Ich fürchte, das die Fehlermeldung von Outlook kommt.
Gruß
Rolf
Rasta schrieb am 20.09.2005 12:35:29:
Hallo Rolf,
evtl. gibt es eine Möglichkeit, die Makro-Sicherheit nach unten zu setzen. In Excel geht das-- dann kommen bei Dateien, die ein Makro enthalten, auch keine Sicherheitshinweise mehr.
Sag mir Bescheid ob das hilft
viele Grüße
Rasta
Rolf Thielmann schrieb am 20.09.2005 11:23:05:
Hallo Rasta,
erst mal vielen Dank für den Tip.
Leider hat es nichts gebracht. Selbst, wenn ich keine Datei anhänge, beschwert sich mein Outlook. Es bringt folgende Meldung:
Ein Programm versucht, auf Ihre in Outlook gespeicherten E-Mail-Adressen zuzugreifen. Möchten Sie dies zulassen?
Falls dies unerwartet geschieht, könnte es sich um einen Virus handeln. Gewähren Sie in diesem Fall keinen Zugriff.
Dann kann man über eine Optionsfläche, ein Dropdown und Ja/Nein-Buttons den Versand für 1, 2, 5 oder 10 Minuten zulassen.
Ganz schön lästig. Da wäre ich ja manuell schneller.
Trotzdem Danke
Rolf
Code:
Sub eMail_senden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "rt@cinq.net"
'Betreff
.Subject = "Test-eMail"
'Nachricht
.Body = "Das ist eine Test-eMail"
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
' .Attachments.Add "c:\temp\test.txt"
.Send
End With
Set olApp = Nothing
End Sub
|