Thema Datum  Von Nutzer Rating
Antwort
Rot VBA in Excel - Kombination mit Outlook
 25.05.2009 17:09:39 Dennis
NotSolved
28.05.2009 12:47:58 Dennis
NotSolved

Ansicht des Beitrags:
Von:
Dennis		 Datum:
25.05.2009 17:09:39		 Views:
1686		 Rating:
     
Antwort:
  Ja
Thema:
VBA in Excel - Kombination mit Outlook
Hallo zusammen,

ich danke bereits vorab für sinnvolle Hinweise und Hilfen!
Folgendes Problem liegt vor. Ich möchte eine Excel Tabelle als Anhang in einer E-Mail versenden lassen, sobald man den Button "E-Mail" betätigt hat.

Der Laufzeitfehler taucht in der Zeile 22 auf:
Set objOutlookAttach = .Attachments.Add(dateiname)

Hier der Quelltext:

Dim olAPP As Object
Dim lesebestaetigung As Boolean
lesebestaetigung = Worksheets("hidden").Cells(38, 6)

Set olAPP = CreateObject("Outlook.Application")
With olAPP.CreateItem(0)
'Empfänger
.Recipients.Add ("dhergert@magix.net")

'Betreff
.Subject = "OEM Versandauftrag von " & auftraggeber
'Nachricht
.Body = "Hi alle zusammen" & Chr(13) & Chr(13) & _
"Als Anhang ein neuer OEM Versandauftrag." & Chr(13) & _
"Versendet werden muss er spätestens am " & Worksheets("hidden").Cells(2, 7).Value & "." & Chr(13) & _
"Bitte kümmert euch darum!" & Chr(13) & Chr(13) & _
"Danke & Gruß" & Chr(13) & _
auftraggeber & Chr(13) & Chr(13) & Chr(13)
If Not IsMissing(dateiname) Then
Set objOutlookAttach = .Attachments.Add(dateiname)
End If
'Lesebestätigung
.ReadReceiptRequested = lesebestaetigung
.Send
End With
Set olAPP = Nothing
Exit Sub


Zweites Problem:

gerne würde ich mittels Button: "Versand anlegen" alle Daten in einem gesonderten Tabellenblatt auflisten lassen.
Der Fehler, dass die "Activate-Methode" des Range-Objektes konnte unicht ausgeführt werden" tritt auf bei:

[a3].Activate


Private Sub CB_anlegen_Click()

Worksheets("Auftraege").Activate
'1. Zeile gehen
[a3].Activate

'wieviel Zeilen sind belegt?
Set feld = ActiveCell.CurrentRegion
belegteZeilen = feld.Rows.Count
ActiveCell.Offset(belegteZeilen - 1, 0).Activate


DANKE FÜR EURE LÖSUNGSANSÄTZE!!!!!!

Dennis

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA in Excel - Kombination mit Outlook
 25.05.2009 17:09:39 Dennis
NotSolved
28.05.2009 12:47:58 Dennis
NotSolved