Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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 ;-)

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige