Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mail-Problem - Outlook öffnet nicht

Forumthread: Mail-Problem - Outlook öffnet nicht

Mail-Problem - Outlook öffnet nicht
27.01.2004 12:19:45
Mirko
hallo, leute!
wir sollen an der Arbeit bestimmte Dateien jetzt immer an eine zentral-adresse mailen. Habe mir mal so gedacht: machstes den leuten mal einfach und baust einen button, über den dann outlook express geöffnet wir, die Datei gleich angehängt und einen betreff sowie die empfängeradresse drin ist.
ich habe eine codezeile eingefügt, die lautet:
Application.Dialogs(xlDialogSendMail).Show (mit ergänzungen - adresse und so)
SO: es geht aber nicht auf jedem rechner..... wieso? die Standard-Mailhandler sind OE, deswegen versteh ichs nicht...
mir ist nur mal aufgefallen, das es auf dem einen rechner im EXCEL (wo's funzt), im Menü der punkt "senden an - e-mail-empfänger" gibt, auf dem anderern pc nicht. Hängt das damit zusammen? kann man das ändern?
die Excel-versionen sind alle gleich (office 97) aber die betriebssysteme reichen von w98 über 2000 zu xppro.
kann jemand helfen?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail-Problem - Outlook öffnet nicht
27.01.2004 13:00:24
Bernd Kiehl
Hallo Mirko,
schau mal bei Ramses (Rainer's) Homepage vorbei, ich glaube dort findest du, was du suchst.
http://www.office.gmxhome.de/_excel_outlook.htm
Gruss Bernd
AW: Mail-Problem - Outlook öffnet nicht
27.01.2004 13:04:31
Michael
Hallo,
Versuch mal den Code :
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
.BCC = ""
.Subject = "Zur Info: " & "Datum " & Date & " - " & "Uhrzeit " & Time
.attachments.Add AWS
.Body = "Hier die Datei zur Ihrer Information!"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
Gruss
Anzeige
Da fehlt noch was
27.01.2004 13:08:16
Michael
Die Zeilen müssen am Anfang noch davor gesetzt werden, sorry ;-))

Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AW: Da fehlt noch was
27.01.2004 14:19:51
mirko
Danke an euch allen, da habe ich heute abend was zum probieren ;-)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige