einfaches Makro zum erstellen einer Mail

28/11/2007 - 14:47 von stego | Report spam
Hallo zusammen und Hilfe,

bin noch nicht so wirklich im Excel-Makro eingearbeitet.

Da ich über die mailto:-Funktion leider nicht so viel Text integrieren kann,
bràuchte ich bitte ein Makro, welches mir aus einzelnen Zellen eine Mail
zusammenstellt.

Empfànger, Kopie, Blindkopie, Betreff und Text soll das Makro aus einzelnen
Zellen
entnehmen. Hab zwar hier schon einen Beitrag gefunden, aber der hilft mir
nicht weiter.

Wàre super wenn mir jemand auf die Schnelle helfen kann.

Danke
stego
 

Lesen sie die antworten

#1 Stefan Stoehr
29/11/2007 - 07:13 | Warnen spam
stego wrote:

Hallo stego,

Da ich über die mailto:-Funktion leider nicht so viel Text
integrieren kann, bràuchte ich bitte ein Makro, welches mir aus
einzelnen Zellen eine Mail zusammenstellt.

Empfànger, Kopie, Blindkopie, Betreff und Text soll das Makro aus
einzelnen Zellen
entnehmen



Falls du Outlook nutzt, kannst du mit folgendem Code experimentieren,
mit Zellinhalt:

a1: Empfànger
a2: Betreff
a3: Text

Sub SendMail()

Dim objOutlook As Object
Dim objMail As Object

'ThisWorkbook.Save

Set objOutlook = CreateObject("Outlook.application")
Set objMail = objOutlook.CreateItem(0)

objMail.To = Cells(1, 1)
objMail.Subject = Cells(2, 1)
objMail.Body = Cells(3, 1)
'objMail.Attachments.Add (ThisWorkbook.FullName)
'objMail.Readrecceiptrequested = true
'objMail.Send
objMail.Display

Set objOutlook = Nothing
Set objMail = Nothing

End Sub

die auskommentierten Zeilen kannst du bei Bedarf einsetzen, der Zweck
dürfte sich ja erschliessen. Das ganze funktioniert aber nur mit
Outlook.

Viele Grüsse,
Stefan

Ähnliche fragen