Vraag : Excel VBA leidt tot het formaat van Vooruitzichten E-mail

Hallo klikken de het gebruiksVooruitzichten van Experts

When I normaal en het Nieuwe Bericht van de Post, krijg ik een geformatteerde lege e-mail die een handtekening heeft, leiden de standaarddoopvont, het adreskaartje etc.

My VBA hieronder met succes tot Vooruitzichten e-mail van Excel.  E-mail het leidt tot is unformatted en heeft niet de handtekening enz. aangezien beschreven/>My gissing above.


So mijn vraag ben, hoe ik de code verander zodat VBA die tot een e-mail leiden de Nieuwe knoop van het Bericht van de Post in Vooruitzichten nabootst?  Dan kan ik het aardige kijken hebben/>I hoop emails.


Regards,

Will is
" codeBody " 
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:
36:
37:
38:
39:
40:

Sub SendOutlookInvoice ()
Schemerige ws als Aantekenvel, sTo als Koord, sAmount als Koord, sDueDate als Koord, sSubject als Koord
Schemerige oOutlookApp als Voorwerp, oOutlookMail als Voorwerp
    
Reeks oOutlookApp = CreateObject („Outlook.Application“)
oOutlookApp.Session.Logon
    
Cellen (5, ActiveCell.Column). Selecteer

Application.ScreenUpdating = Vals
    
Vastgesteld ws = ActiveSheet
    
Met ws
    sTo = ActiveCell.Offset (52, 0). Waarde
    sAmount = ActiveCell.Offset (11, 0). Waarde
    sDueDate = ActiveCell.Value
    sSubject = ActiveCell.Offset (- 2, 0). Waarde
    sContact = ActiveCell.Offset (51, 0). Waarde
    het sHosting = ActiveCell.Offset (53, 0). Waarde
Eind met
    
Reeks oOutlookMail = oOutlookApp.CreateItem (0)
Op Fout hervat daarna
Met oOutlookMail
    . Aan = sTo
    .CC = ""
    .BCC = ""
    . Onderwerp = „Jaarlijkse vernieuwing van website www.“ & sSubject
    . Lichaam = „Beste“ & sContact & vbCrLf & vbCrLf & „Uw website www.“ & sSubject & „jaarlijks“ & is sHosting & „gepast voor vernieuwing op“ & sDueDate & „.“ & vbCrLf & vbCrLf & „te vinden gelieve een rekening voor $“ & sAmount &“ voor één jaar vernieuwing van deze diensten in bijlage. „& vbCrLf & vbCrLf & „Deze e-mail wordt automatisch geproduceerd. Gelieve te voelen vrij om ons te contacteren indien u hulp nodig hebt. Als u nadenkt is deze rekening onjuist, of u bent verkeerd verzonden deze post, gelieve ons te contacteren.“ & vbCrLf & vbCrLf & „Technologie Croxford“ & vbCrLf & „68b de Steeg van Kennels“ & vbCrLf & „RD2, Wanaka“ & vbCrLf & „Nieuw Zeeland“ & vbCrLf & „Ph +64 (0) 3 443 4672“ & vbCrLf & „E-mail: [email protected]“ & vbCrLf & vbCrLf & „de Achting,“ & vbCrLf & vbCrLf & „zal Croxford“
    . Vertoning
Eind met
Op Fout GoTo 0
    
Reeks oOutlookMail = niets
Reeks oOutlookApp = niets
    
Application.ScreenUpdating = Waar
    
Sub van het eind

Antwoord : Excel VBA leidt tot het formaat van Vooruitzichten E-mail

Niet ziet een deskundige VBA maar of wordt dit u minstens in de juiste richting gewezen.

http://www.rondebruin.nl/mail/folder3/signature.htm
Andere oplossingen  
 
programming4us programming4us