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
|