Hilfe bei EXCEL --> OUTLOOK

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Hilfe bei EXCEL --> OUTLOOK
von: Daniel
Geschrieben am: 01.07.2002 - 12:37:01

Benötige Hilfe bei meinem Makro für EXCEL:

Möchte eine Tabelle per Excel verschicken, aber nicht im Anhang sondern im Textfeld, wenn ich es manuell mache funktioniert es ohne Probleme doch als Makro erhalte ich nur -1 bzw den Text ohne Formatierung.
Kann mir jemand behilflich sein?

Daniel

nach oben   nach unten

Re: Hilfe bei EXCEL --> OUTLOOK
von: ajk
Geschrieben am: 01.07.2002 - 15:49:35

Hallo,
mail mal Dein Makro, dann gucke ich drauf....


Gruß
AJK


nach oben   nach unten

Re: Hilfe bei EXCEL --> OUTLOOK
von: Daniel
Geschrieben am: 01.07.2002 - 15:54:24

Wie ist deine Mail?
Meine ist DanielCZ@web.de
hab die Makros aus dem Forum übernommen, z.B:

Dim olApp As Object
Dim olMailItm As Object
Dim iCounter, v As Integer
Dim dest As Variant
Dim sdest As String
Set olApp = CreateObject("outlook.application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
sdest = ""
For iCounter = 1 To _
WorksheetFunction.CountA(Columns(1))
If sdest = "" Then
sdest = Cells(iCounter, 1).Value
Else
sdest = sdest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter
.CC = sdest
.Subject = "kundeninfo"
.Body = ActiveCell.Offset(1, 2)
.Send
End With
Set olMailItm = Nothing
Set olApp = Nothing
End Sub

nach oben   nach unten

Re: Hilfe bei EXCEL --> OUTLOOK
von: ajk
Geschrieben am: 04.07.2002 - 12:51:42

Hallo Daniel,

anbei der geänderte Code (habe Ihn miT "#") markiert!!

Sub HinweisMail()
Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim newMail As Outlook.MailItem
Dim name As String
Dim objNewAppt As AppointmentItem
Dim bereich As Range
Dim zelle As Range
Dim start As String
Dim erste As Boolean
Dim textbody

'######################################################################################################
Range("A4:F7").Select ' Hier wird DEIN Bereich definiert, Achtung Sprungmarke "aufbereiten" anpassen! ###
'######################################################################################################

'Flexibere Variante mit Inputbox

'Set bereich = Application.InputBox("Bitte zu mailenden Bereich wählen", "Benutzer: " & Application.UserName, , , , , , 8)

'If bereich. = False Then
'Exit Sub
'End If

GoSub aufbereiten

Set golApp = New Outlook.Application

'Return a reference to the MAPI layer.
Set ns = ol.GetNamespace("MAPI")

'Create a new mail message item.
Set newMail = ol.CreateItem(olMailItem)
With newMail
'Add the subject of the mail message.
.Subject = ActiveWorkbook.name
'Create some body text.
.body = "Achtung bitte kontrollieren!" & textbody

'Add a recipient and test to make sure that the
'address is valid using the Resolve method.
With .Recipients.Add("andreas.jabusch-karsten@nienburger-glas.de")
.Type = olTo
If Not .Resolve Then
MsgBox "Kann Mail-Adresse nicht auflösen.", vbInformation, "Benutzer:" & Application.UserName
Exit Sub
End If
End With
'With .Recipients.Add("weitere empfänger")
' .Type = olCC
' If Not .Resolve Then
' MsgBox "Kann Mail-Adresse nicht auflösen.", vbInformation, "Benutzer:" & Application.UserName
' Exit Sub
'End If
' End With

'Attach a file as a link with an icon.
'With .Attachments.Add _
(name, olByValue)
' .DisplayName = "Angezeigter Dateiname"
'End With
.Display
'Send the mail message.
.Send
End With
GoTo weiter


aufbereiten:
erste = False
'#########################################################################################
For Each zelle In Selection 'Selection durch bereich ersetzen, bei Flex-Variante##
'#########################################################################################
If erste = False Then
start = zelle.AddressLocal
erste = True
End If

If Left(zelle.AddressLocal, 3) <> Left(start, 3) Then
textbody = textbody & Chr(9) & zelle.Value
Else
textbody = textbody & Chr(13) & zelle.Value
End If

Next
Return


weiter:
'Release memory.
Set ol = Nothing
Set ns = Nothing
Set newMail = Nothing
End Sub

Gruß
AJK

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hilfe bei EXCEL --> OUTLOOK"