Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

problem mit mail versenden

problem mit mail versenden
10.09.2006 20:22:51
selo
Hallo an alle habe da ein problem beim versenden mit excel
habe folgenden code

Sub mail()
Dim Empfänger, Titel As String
Empfänger = "simsalabim@hotmail.com"
Titel = Application.UserName & " tach auch"
Application.Dialogs(xlDialogSendMail).show Empfänger, Titel
End Sub

das problem ist das hier die komplette datei als anhang geschickt wird ich möchte jedoch nur das outlook aufgemacht wird mit automatisch betreffzeile und dem empfänger
wie muß ich denn den code ändern?
gruß
selo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: problem mit mail versenden
10.09.2006 20:43:34
mumpel
Hallo!
Das geht zum beispiel so:

Sub MailProgrammÖffnen()
On Error Resume Next
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.display
.to = "mail@billgates.com"
.Subject = "Guten Tag"
.body = "Hallo!" & vbCrLf & vbCrLf & "Gruß," & " " & Application.UserName
End With
End Sub

Gruss Rene
danke für die hilfe
10.09.2006 21:24:52
selo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige