Frage : Excel VBA verursachen Aussicht-eMail-Format

Hallo Experts

When verwende ich normalerweise Aussicht und klicke neue Post-Mitteilung, ich erhalte eine formatierte unbelegte eMail, die eine Unterzeichnung, einen Rückstellungsguß, eine Visitenkarte etc.

My VBA unten herstellt erfolgreich eine Aussicht-eMail von Excel hat.  Die eMail, die sie herstellt, ist formatfrei und hat nicht die Unterzeichnung usw., während beschriebene above.

My Vermutung sie ist etwas, mit der Weise zu tun ist das VBA die Post mit dem CreateObject Befehl verursacht, oder something.

So meine Frage, wie ich ändere den Code bin, damit das VBA, das eine eMail herstellt, den neuen Post-Mitteilungknopf in der Aussicht nachahmt?  Dann kann ich nette schauende emails.

I Hoffnung, die clear.

Regards, ist

Will haben 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:

Sub SendOutlookInvoice ()
Schwaches WS als Arbeitsblatt, sTo als Schnur, sAmount als Schnur, sDueDate als Schnur, sSubject als Schnur
Schwaches oOutlookApp als Gegenstand, oOutlookMail als Gegenstand
    
oOutlookApp = CreateObject („Outlook.Application“) einstellen
oOutlookApp.Session.Logon
    
Zellen (5, ActiveCell.Column). Auserwählt

Application.ScreenUpdating = falsch
    
Einstellen WS = ActiveSheet
    
Mit WS
    sTo = ActiveCell.Offset (52, 0). Wert
    sAmount = ActiveCell.Offset (11, 0). Wert
    sDueDate = ActiveCell.Value
    sSubject = ActiveCell.Offset (- 2, 0). Wert
    sContact = ActiveCell.Offset (51, 0). Wert
    sHosting = ActiveCell.Offset (53, 0). Wert
Ende mit
    
oOutlookMail = oOutlookApp.CreateItem (0) einstellen
Auf Störung zunächst wieder aufnehmen
Mit oOutlookMail
    . Zu = sTo
    .CC = ""
    .BCC = ""
    . Thema = „jährliche Erneuerung von Web site WWW.“ u. sSubject
    . Körper = „lieb“ u. sContact u. vbCrLf u. vbCrLf u. „Ihre Web site WWW.“ u. ist sSubject u. „jährlich“ u. sHosting u. „passend für Erneuerung auf“ u. sDueDate u. „.“ u. finden vbCrLf u. vbCrLf u. „bitte anbrachten eine Rechnung für $“ u. sAmount u.“ für eine Jahre Erneuerung dieser Dienstleistungen. „u. wird vbCrLf u. vbCrLf u. „diese eMail automatisch erzeugt. Bitte glauben, dass frei, mit uns in Verbindung zu treten Sie Hilfe benötigen. Wenn Sie betrachten, ist diese Rechnung falsch, oder Sie sind falsch geschickt worden dieser Post, in Verbindung treten mit uns bitte.“ u. vbCrLf u. vbCrLf u. „Croxford Technologie“ u. vbCrLf u. „der Hundehütte-68b Weg“ u. vbCrLf u. „RD2, Wanaka“ u. vbCrLf u. „Neuseeland“ u. vbCrLf u. „pH +64 (0) 3 443 4672“ u. vbCrLf u. „eMail: [email protected]“ u. vbCrLf u. vbCrLf u. „Respekt,“ u. vbCrLf u. vbCrLf u. „werden Croxford“
    . Anzeige
Ende mit
Auf Störung Goto- 0
    
oOutlookMail einstellen = nichts
oOutlookApp einstellen = nichts
    
Application.ScreenUpdating = richten aus
    
Enden-Unterseeboot

Antwort : Excel VBA verursachen Aussicht-eMail-Format

Nicht sehen ein VBA Experte aber, wenn dieser Sie mindestens gezeigt in die rechte Richtung erhält.

http://www.rondebruin.nl/mail/folder3/signature.htm
Weitere Lösungen  
 
programming4us programming4us